(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    411622,       9238]
NotebookOptionsPosition[    409472,       9189]
NotebookOutlinePosition[    409864,       9205]
CellTagsIndexPosition[    409821,       9202]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.915694830819297*^9, 3.915694831508816*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"1e449c69-1cdb-4643-8054-f6e13435a261"],

Cell[CellGroupData[{

Cell["Definitions", "Chapter",
 CellChangeTimes->{{3.915695113448099*^9, 
  3.9156951166457577`*^9}},ExpressionUUID->"39c6eac2-cac2-4b5f-a5ef-\
2c0f49a3f066"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.915694835728047*^9, 3.915694853532741*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"1605f135-6d65-4331-9908-77c3b3755f6d"],

Cell[BoxData[
 FormBox["\<\"/Users/mozhewen/Packages/FeynGRAF/Example\"\>", 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.915694855272829*^9, 3.915695058524722*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"a7c2564f-2210-459f-afc6-51cf7a024d95"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Get", "[", "\"\<../FeynGRAF.wl\>\"", "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.9156948621703978`*^9, 3.9156948680075197`*^9}, 
   3.915695076689011*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"41b7cc67-d768-4b31-b97d-370b309e53e1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "propagatorStyleDict"}]], "Input",
 CellChangeTimes->{{3.906993969818982*^9, 3.9069939702410803`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"755008b2-d37c-4861-b837-e0a2857b4f2d"],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   StyleBox[
    FrameBox[
     DynamicModuleBox[{System`InformationDump`open$$ = False, 
      System`InformationDump`mouseOver$$ = False}, 
      PaneSelectorBox[{True->
       TagBox[GridBox[{
          {
           ItemBox[
            PaneBox[
             StyleBox["\<\" Symbol\"\>", "InformationTitleText",
              StripOnInput->False,
              BaseStyle -> None],
             FrameMargins->{{4, 0}, {-1, 1}}],
            BaseStyle->"InformationTitleBackground",
            StripOnInput->False], 
           ItemBox["\<\"\"\>",
            BaseStyle->"InformationTitleBackground",
            StripOnInput->False]},
          {
           ItemBox[
            PaneBox[
             
             StyleBox["\<\"propagatorStyleDict = {\\n\\t{\\\"field\\\", \
\\\"dual-field\\\"} \[Rule] styleFunc1,\\n\\t{in | out, \\\"field\\\"} \
\[Rule] styleFunc2,\\n\\t...\\n}\"\>", "InformationUsageText",
              StripOnInput->False,
              LineSpacing->{1.5, 1.5, 3.}],
             FrameMargins->{{10, 10}, {8, 10}}],
            BaseStyle->"InformationUsageSubtitleBackground",
            StripOnInput->False], 
           ItemBox["\<\"\"\>",
            BaseStyle->"InformationUsageSubtitleBackground",
            StripOnInput->False]},
          {
           PaneBox[
            TagBox[GridBox[{
               {
                StyleBox[
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Assignment\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"OwnValues\"",
                   TooltipStyle->"TextStyling"],
                  Annotation[#, "OwnValues", "Tooltip"]& ], "DialogStyle",
                 StripOnInput->False]},
               {
                TemplateBox[{"\"\[ThinSpace]\"", 
                  GridBox[{{
                    RowBox[{"propagatorStyleDict", "=", 
                    RowBox[{"{", "}"}]}]}, {" "}}, 
                   GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                   DefaultBaseStyle -> "Column", 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                 "RowDefault"]}
              },
              DefaultBaseStyle->"Column",
              GridBoxAlignment->{"Columns" -> {{Left}}},
              
              GridBoxItemSize->{
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
             "Column"],
            FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
          {
           PaneBox[GridBox[{
              {
               
               DynamicModuleBox[{System`InformationDump`open$$ = {
                False, False, False, False, False, False}}, 
                StyleBox[GridBox[{
                   {
                    TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"FeynGRAF`propagatorStyleDict\"\>"}
                  },
                  AutoDelete->False,
                  GridBoxAlignment->{"Columns" -> {Right, Left}},
                  GridBoxDividers->None,
                  GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                 StripOnInput->False],
                DynamicModuleValues:>{}]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.5599999999999999]}, 
                 Offset[0.27999999999999997`]}, "Rows" -> {
                 Offset[0.2], {
                  Offset[3.6]}, 
                 Offset[0.2]}}],
            FrameMargins->{{6, 6}, {6, 3}}], ""},
          {
           ItemBox[
            TagBox[
             ButtonBox[
              PaneSelectorBox[{False->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "UpPointerOpener"]], True->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
               System`InformationDump`mouseOver$$]],
              Alignment->Left,
              Appearance->{"Default" -> None},
              
              ButtonFunction:>FEPrivate`Set[
               System`InformationDump`open$$, False],
              Evaluator->Automatic,
              FrameMargins->{{9, 0}, {0, 0}},
              ImageMargins->0,
              ImageSize->Full,
              Method->"Preemptive"],
             
             EventHandlerTag[{
              "MouseEntered" :> 
               FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
               "MouseExited" :> 
               FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
               Method -> "Preemptive", PassEventsDown -> Automatic, 
               PassEventsUp -> True}]],
            BaseStyle->"InformationTitleBackground",
            StripOnInput->False], "\[SpanFromLeft]"}
         },
         AutoDelete->False,
         FrameStyle->Directive[
           GrayLevel[0.8], 
           Thickness[Tiny]],
         GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
         
         GridBoxDividers->{
          "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
        "Grid"], False->
       TagBox[GridBox[{
          {
           ItemBox[
            PaneBox[
             StyleBox["\<\" Symbol\"\>", "InformationTitleText",
              StripOnInput->False],
             FrameMargins->{{4, 0}, {-1, 1}}],
            BaseStyle->"InformationTitleBackground",
            StripOnInput->False], 
           ItemBox["\<\"\"\>",
            BaseStyle->"InformationTitleBackground",
            StripOnInput->False]},
          {
           ItemBox[
            PaneBox[
             
             StyleBox["\<\"propagatorStyleDict = {\\n\\t{\\\"field\\\", \
\\\"dual-field\\\"} \[Rule] styleFunc1,\\n\\t{in | out, \\\"field\\\"} \
\[Rule] styleFunc2,\\n\\t...\\n}\"\>", "InformationUsageText",
              StripOnInput->False,
              LineSpacing->{1.5, 1.5, 3.}],
             FrameMargins->{{10, 10}, {8, 10}}],
            BaseStyle->"InformationUsageSubtitleBackground",
            StripOnInput->False], 
           ItemBox["\<\"\"\>",
            BaseStyle->"InformationUsageSubtitleBackground",
            StripOnInput->False]},
          {
           ItemBox[
            TagBox[
             ButtonBox[
              PaneSelectorBox[{False->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "DownPointerOpener"],
                ImageSizeCache->{13., {2., 11.}}], True->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "DownPointerOpenerHot"],
                ImageSizeCache->{13., {2., 11.}}]}, Dynamic[
               System`InformationDump`mouseOver$$]],
              Alignment->Left,
              Appearance->{"Default" -> None},
              
              ButtonFunction:>FEPrivate`Set[
               System`InformationDump`open$$, True],
              Evaluator->Automatic,
              FrameMargins->{{9, 0}, {0, 0}},
              ImageMargins->0,
              ImageSize->Full,
              Method->"Preemptive"],
             
             EventHandlerTag[{
              "MouseEntered" :> 
               FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
               "MouseExited" :> 
               FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
               Method -> "Preemptive", PassEventsDown -> Automatic, 
               PassEventsUp -> True}]],
            BaseStyle->"InformationTitleBackground",
            StripOnInput->False], "\[SpanFromLeft]"}
         },
         AutoDelete->False,
         FrameStyle->Directive[
           GrayLevel[0.8], 
           Thickness[Tiny]],
         GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
         
         GridBoxDividers->{
          "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
        "Grid"]}, Dynamic[System`InformationDump`open$$],
       BaselinePosition->Baseline,
       FrameMargins->0,
       ImageSize->Automatic],
      DynamicModuleValues:>{}],
     BaseStyle->"InformationGridFrame",
     StripOnInput->False], "InformationGridPlain",
    StripOnInput->False],
   InformationData[<|
    "ObjectType" -> "Symbol", "Usage" -> 
     "propagatorStyleDict = {\n\t{\"field\", \"dual-field\"} \[Rule] \
styleFunc1,\n\t{in | out, \"field\"} \[Rule] styleFunc2,\n\t...\n}", 
     "Documentation" -> None, "OwnValues" -> 
     Information`InformationValueForm[
      OwnValues, FeynGRAF`propagatorStyleDict, {
       FeynGRAF`propagatorStyleDict -> {}}], "UpValues" -> None, "DownValues" -> 
     None, "SubValues" -> None, "DefaultValues" -> None, "NValues" -> None, 
     "FormatValues" -> None, "Options" -> None, "Attributes" -> {}, 
     "FullName" -> "FeynGRAF`propagatorStyleDict"|>, False]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.906993970610124*^9, 3.9069941475786877`*^9, 
  3.9069969970565567`*^9, 3.907045578221294*^9, 3.907051280284862*^9, 
  3.9070555200067377`*^9, 3.907136518378079*^9, 3.9073130005615673`*^9, 
  3.9077461135185423`*^9, 3.908547112005426*^9, 3.908576102457068*^9, 
  3.9086030368992643`*^9, 3.908989464841342*^9, 3.915695185191155*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"9b1fca30-e188-4cf8-abed-87d7de2c5ddf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hhh", "=", 
  RowBox[{"Graphics", "[", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"1", "/", "3"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "/", "3"}]}], "}"}]}], "}"}], "}"}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.909997201567334*^9, 3.909997201714403*^9}, {
  3.9099972495817823`*^9, 3.9099972848445473`*^9}},
 CellLabel->"In[7]:=",
 CellID->874236904,ExpressionUUID->"1d3ba7d2-16a6-40f6-a19b-b708021edf5d"],

Cell[BoxData[
 FormBox[
  GraphicsBox[
   LineBox[NCache[{{{0, Rational[1, 3]}, {-1, 0}, {0, Rational[-1, 3]}}}, {{{
       0, 0.3333333333333333}, {-1, 0}, {0, -0.3333333333333333}}}]]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.90999719212107*^9, 3.9099972023924828`*^9}, {
   3.909997264110943*^9, 3.909997285167495*^9}, 3.9156951879522247`*^9},
 GraphicsBoxOptions->{ImageSize->{100, Automatic}},
 CellLabel->"Out[7]=",ExpressionUUID->"b45b4a1e-c103-4013-8cc9-80f7374e23c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Define", " ", "propagator", " ", "styles"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"propagatorStyleDict", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"out", ",", 
        RowBox[{"O_", "/;", 
         RowBox[{
          RowBox[{"StringTake", "[", 
           RowBox[{
            RowBox[{"ToString", "[", "O", "]"}], ",", "1"}], "]"}], "===", 
          "\"\<O\>\""}]}]}], "}"}], " ", "->", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Orange", ",", "Thick"}], "]"}], "&"}], ")"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"_", ",", "\"\<g\>\""}], "}"}], "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Red", ",", 
          RowBox[{"AbsoluteThickness", "[", "0.4", "]"}]}], "]"}], "&"}], 
       ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<gh\>\"", ",", "\"\<ghbar\>\""}], "}"}], "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "Red", ",", "Dashed"}], "]"}], "&"}], ")"}]}], ",",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<u\>\"", ",", "\"\<ubar\>\""}], "}"}], "|", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"in", "|", "out"}], ",", "\"\<u\>\""}], "}"}]}], "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"ColorData", "[", 
            RowBox[{"35", ",", "\"\<ColorList\>\""}], "]"}], "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "&"}], ")"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<d\>\"", ",", "\"\<dbar\>\""}], "}"}], "|", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"in", "|", "out"}], ",", "\"\<d\>\""}], "}"}]}], "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"ColorData", "[", 
            RowBox[{"35", ",", "\"\<ColorList\>\""}], "]"}], "[", 
           RowBox[{"[", "8", "]"}], "]"}]}], "]"}], "&"}], ")"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"in", "|", "out"}], ",", "\"\<ubar\>\""}], "}"}], "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"ColorData", "[", 
            RowBox[{"35", ",", "\"\<ColorList\>\""}], "]"}], "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", 
          RowBox[{"Arrowheads", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Small", ",", "0.3", ",", "hhh"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Medium", ",", "1"}], "}"}]}], "}"}], "]"}]}], "]"}], 
        "&"}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"in", "|", "out"}], ",", "\"\<dbar\>\""}], "}"}], "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"ColorData", "[", 
            RowBox[{"35", ",", "\"\<ColorList\>\""}], "]"}], "[", 
           RowBox[{"[", "8", "]"}], "]"}], ",", 
          RowBox[{"Arrowheads", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Small", ",", "0.3", ",", "hhh"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Medium", ",", "1"}], "}"}]}], "}"}], "]"}]}], "]"}], 
        "&"}], ")"}]}]}], "\[IndentingNewLine]", "}"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.9048843675297527`*^9, 3.904884382003092*^9}, {
   3.904884424085487*^9, 3.9048845433135223`*^9}, {3.904884575112082*^9, 
   3.904884602407937*^9}, {3.9069941525576878`*^9, 3.906994252008265*^9}, {
   3.90699870008635*^9, 3.9069987838496647`*^9}, {3.907314442735216*^9, 
   3.907314452687799*^9}, {3.907747231940455*^9, 3.9077472481947517`*^9}, {
   3.908989503402172*^9, 3.908989539110421*^9}, {3.909011422103455*^9, 
   3.909011433158986*^9}, 3.909011487512491*^9, {3.9099960715926456`*^9, 
   3.9099960990084543`*^9}, {3.909996299265757*^9, 3.9099963580373087`*^9}, {
   3.90999639920795*^9, 3.90999653819215*^9}, {3.9099969863137712`*^9, 
   3.90999699956853*^9}, {3.909997209493061*^9, 3.9099972102329407`*^9}, {
   3.909997295994437*^9, 3.9099972962751637`*^9}, {3.9099973357437563`*^9, 
   3.90999739871529*^9}, {3.909997441689445*^9, 3.909997480169838*^9}, {
   3.9099977377400303`*^9, 3.9099977740782022`*^9}, {3.910075741861011*^9, 
   3.910075767487727*^9}, {3.9100759006398087`*^9, 3.910075902938528*^9}, {
   3.9100759872239*^9, 3.910076058878723*^9}, {3.9101818236056013`*^9, 
   3.910181850501357*^9}, {3.910182000300044*^9, 3.910182000503585*^9}, {
   3.910182040995085*^9, 3.910182042117668*^9}, {3.91018216745683*^9, 
   3.910182169128524*^9}, {3.9101822207560377`*^9, 3.9101822792936773`*^9}, {
   3.915695200243395*^9, 3.9156952173122396`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"2b6b4428-d781-4c59-b3cf-b82d2940babe"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"out", ",", 
       RowBox[{"O_", "/;", 
        RowBox[{
         RowBox[{"StringTake", "[", 
          RowBox[{
           RowBox[{"ToString", "[", "O", "]"}], ",", "1"}], "]"}], 
         "===", "\<\"O\"\>"}]}]}], "}"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"#1", ",", "Orange", ",", "Thick"}], "]"}], "&"}], ")"}]}], 
    ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"_", ",", "\<\"g\"\>"}], "}"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"#1", ",", "Red", ",", 
         RowBox[{"AbsoluteThickness", "[", "0.4`", "]"}]}], "]"}], "&"}], 
      ")"}]}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\<\"gh\"\>", ",", "\<\"ghbar\"\>"}], "}"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"#1", ",", "Red", ",", "Dashed"}], "]"}], "&"}], ")"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], "|", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"in", "|", "out"}], ",", "\<\"u\"\>"}], "}"}]}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"#1", ",", 
         RowBox[{
          RowBox[{"ColorData", "[", 
           RowBox[{"35", ",", "\<\"ColorList\"\>"}], "]"}], 
          "\[LeftDoubleBracket]", "6", "\[RightDoubleBracket]"}]}], "]"}], 
       "&"}], ")"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\<\"d\"\>", ",", "\<\"dbar\"\>"}], "}"}], "|", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"in", "|", "out"}], ",", "\<\"d\"\>"}], "}"}]}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"#1", ",", 
         RowBox[{
          RowBox[{"ColorData", "[", 
           RowBox[{"35", ",", "\<\"ColorList\"\>"}], "]"}], 
          "\[LeftDoubleBracket]", "8", "\[RightDoubleBracket]"}]}], "]"}], 
       "&"}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"in", "|", "out"}], ",", "\<\"ubar\"\>"}], "}"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"#1", ",", 
         RowBox[{
          RowBox[{"ColorData", "[", 
           RowBox[{"35", ",", "\<\"ColorList\"\>"}], "]"}], 
          "\[LeftDoubleBracket]", "6", "\[RightDoubleBracket]"}], ",", 
         RowBox[{"Arrowheads", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Small", ",", "0.3`", ",", "hhh"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Medium", ",", "1"}], "}"}]}], "}"}], "]"}]}], "]"}], 
       "&"}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"in", "|", "out"}], ",", "\<\"dbar\"\>"}], "}"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"#1", ",", 
         RowBox[{
          RowBox[{"ColorData", "[", 
           RowBox[{"35", ",", "\<\"ColorList\"\>"}], "]"}], 
          "\[LeftDoubleBracket]", "8", "\[RightDoubleBracket]"}], ",", 
         RowBox[{"Arrowheads", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Small", ",", "0.3`", ",", "hhh"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Medium", ",", "1"}], "}"}]}], "}"}], "]"}]}], "]"}], 
       "&"}], ")"}]}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.904884548071677*^9, 3.904884603185564*^9}, 
   3.9048999723981524`*^9, 3.904900408583623*^9, 3.904901012793112*^9, 
   3.904901455448482*^9, 3.90490671081433*^9, 3.9049067452134123`*^9, 
   3.904906932722785*^9, 3.904907296095335*^9, 3.904907428548008*^9, 
   3.90490822099212*^9, 3.906703354014443*^9, {3.906708678844755*^9, 
   3.906708686930191*^9}, 3.906709132375745*^9, 3.906709227739606*^9, 
   3.9069926382099*^9, {3.9069941402548933`*^9, 3.906994153856271*^9}, 
   3.906994213109874*^9, 3.906994255860261*^9, {3.9069969890057917`*^9, 
   3.906996999689817*^9}, 3.906997589481381*^9, 3.906997734537126*^9, {
   3.906998747254616*^9, 3.906998784658989*^9}, 3.906999683049966*^9, 
   3.907000717814241*^9, 3.907002631276243*^9, 3.9070455835672693`*^9, {
   3.9070512739523363`*^9, 3.907051282064707*^9}, 3.907052089937571*^9, {
   3.907055515583349*^9, 3.907055521444454*^9}, 3.9070932815767803`*^9, 
   3.907136519701583*^9, 3.907144905478943*^9, 3.9073130019926243`*^9, 
   3.907314453884035*^9, 3.9077461151650057`*^9, 3.9077472524763536`*^9, 
   3.9077480391321383`*^9, 3.9083310468650217`*^9, 3.908331728600193*^9, 
   3.908331776518847*^9, 3.908546397058263*^9, 3.9085471137496853`*^9, 
   3.9085761039203777`*^9, 3.9086030315337276`*^9, 3.908603673984791*^9, 
   3.908989545470273*^9, 3.909011489614448*^9, {3.90999640635671*^9, 
   3.909996435518856*^9}, {3.909996466924711*^9, 3.9099965391008453`*^9}, {
   3.909996988924593*^9, 3.909997000437098*^9}, 3.909997210891349*^9, {
   3.909997272591308*^9, 3.909997296631733*^9}, 3.9099974038086863`*^9, 
   3.909997481803508*^9, {3.9156951971405153`*^9, 3.915695220338331*^9}},
 CellLabel->"Out[9]=",ExpressionUUID->"300e1ebb-ae3a-4ce6-8b01-24061c46fc6b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Usage", "Chapter",
 CellChangeTimes->{{3.915695123387722*^9, 
  3.915695124103381*^9}},ExpressionUUID->"3e2008da-0768-4b11-91c5-\
855f6241039d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"grafs", "=", 
   RowBox[{"RunQGRAF", "[", 
    RowBox[{"\"\<./Dim-7.mod\>\"", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"u", "[", "p1", "]"}], ",", 
        RowBox[{"ubar", "[", "p2", "]"}]}], "}"}], "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"u", "[", "p3", "]"}], ",", 
        RowBox[{"ubar", "[", "p4", "]"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "1"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<options\>\"", "->", 
      RowBox[{"Append", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"OptionValue", "[", 
          RowBox[{"RunQGRAF", ",", "\"\<options\>\""}], "]"}], "/.", 
         RowBox[{"\"\<onshell\>\"", "->", "\"\<onshellx\>\""}]}], ",", 
        "\"\<nosnail\>\""}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Epilog", "->", "\"\<\\\ntrue=iprop[d, 0, 0];\n\>\""}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MapIndexed", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Underscript", "[", 
     RowBox[{"#1", ",", 
      RowBox[{"First", "[", "#2", "]"}]}], "]"}], "&"}], ",", 
   RowBox[{"DrawGraph", "[", "grafs", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{3.915695082724465*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"b53112b9-ee45-432c-b905-f1c70a927b41"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 
          1, -1, -3, -2, -4}, {{{1, 2}, {2, 1}, {3, 2}, {4, 2}, {1, 5}, {1, 
           6}}, Null, {1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[-3, 1, 1] -> "p2", 
             DirectedEdge[1, 2, 1] -> "l1", DirectedEdge[2, 1, 1] -> 
             "l1-p1-p2", DirectedEdge[2, -4, 1] -> "p4", 
             DirectedEdge[2, -2, 1] -> "p3"}, 
           EdgeStyle -> {DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{0.6730798372075923, 0.6259112444595929}, {
                1.2464113251393618`, 0.8144791507886442}, {
                1.8197486239265839`, 0.6259289129984402}}], 
               0.02647874052934844]}, 
             InsetBox["\<\"l1-p1-p2\"\>", {1.2464129937693689, 0.7061868937993461},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6730798372075923, 0.6259112444595929}, {
               0.0008798532667071424, 1.2505038200398877`}}, 
               0.02647874052934844]}, 
             InsetBox["\<\"p3\"\>", {0.33697984523714974, 0.9382075322497403},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6730798372075923, 0.6259112444595929}, {0., 
               0.0019496357571008316`}}, 0.02647874052934844]}, 
             InsetBox["\<\"p4\"\>", {0.3365399186037962, 0.31393044010834686},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{1.8197486239265839`, 0.6259289129984402}, {
                1.2464171359948182`, 0.43736100666938693`}, {
                0.6730798372075923, 0.6259112444595929}}], 
               0.02647874052934844]}, 
             InsetBox["\<\"l1\"\>", {1.2464154673648074, 0.545653263658687}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.49154474760838, 0.}, {1.8197486239265839`, 
               0.6259289129984402}}, 0.02647874052934844]}, 
             InsetBox["\<\"p1\"\>", {2.155646685767482, 0.3129644564992201}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.4909706653119628`, 1.2522930734286435`}, {
               1.8197486239265839`, 0.6259289129984402}}, 
               0.02647874052934844]}, 
             InsetBox["\<\"p2\"\>", {2.1553596446192733, 0.9391109932135419}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{0.6730798372075923, 0.6259112444595929}, 
             0.02647874052934844], 
            DiskBox[{1.8197486239265839`, 0.6259289129984402}, 
             0.02647874052934844], 
            DiskBox[{2.49154474760838, 0.}, 0.02647874052934844], 
            DiskBox[{2.4909706653119628`, 1.2522930734286435`}, 
             0.02647874052934844], 
            DiskBox[{0.0008798532667071424, 1.2505038200398877`}, 
             0.02647874052934844], 
            DiskBox[{0., 0.0019496357571008316`}, 0.02647874052934844]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "1"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 
          1, -1, -3, -2, -4}, {{{1, 2}, {1, 2}, {3, 2}, {4, 2}, {1, 5}, {1, 
           6}}, Null, {1, 2, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[-3, 1, 1] -> "p2", 
             DirectedEdge[2, 1, 2] -> "-l1", DirectedEdge[2, 1, 1] -> 
             "l1-p1-p2", DirectedEdge[2, -4, 1] -> "p4", 
             DirectedEdge[2, -2, 1] -> "p3"}, 
           EdgeStyle -> {DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 1, 2] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{0.6953281327183397, 0.6466004072608577}, {
                1.2876107876053429`, 0.841401325295114}, {1.87989944542253, 
                0.6466186598238456}}], 0.027103839645414976`]}, 
             InsetBox["\<\"l1-p1-p2\"\>", {1.2876125113910257, 0.7295295254316452},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{0.6953281327183397, 0.6466004072608577}, {
                1.2876167905355396`, 0.45181774178958795`}, {1.87989944542253,
                 0.6466186598238456}}], 0.027103839645414976`]}, 
             InsetBox["\<\"-l1\"\>", {1.287615066749844, 0.5636895416530583}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6953281327183397, 0.6466004072608577}, {
               0.0009089363477943202, 1.2918385577449856`}}, 
               0.027103839645414976`]}, 
             InsetBox["\<\"p3\"\>", {0.348118534533067, 0.9692194825029217}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6953281327183397, 0.6466004072608577}, {0., 
               0.0020140799286010314`}}, 0.027103839645414976`]}, 
             InsetBox["\<\"p4\"\>", {0.34766406635916985, 0.32430724359472934},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.5739014321482334`, 0.}, {1.87989944542253, 
               0.6466186598238456}}, 0.027103839645414976`]}, 
             InsetBox["\<\"p1\"\>", {2.226900438785382, 0.3233093299119228}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.5733083738672864`, 1.293686953951482}, {
               1.87989944542253, 0.6466186598238456}}, 
               0.027103839645414976`]}, 
             InsetBox["\<\"p2\"\>", {2.226603909644908, 0.9701528068876637}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{0.6953281327183397, 0.6466004072608577}, 
             0.027103839645414976], 
            DiskBox[{1.87989944542253, 0.6466186598238456}, 
             0.027103839645414976], 
            DiskBox[{2.5739014321482334`, 0.}, 0.027103839645414976], 
            DiskBox[{2.5733083738672864`, 1.293686953951482}, 
             0.027103839645414976], 
            DiskBox[{0.0009089363477943202, 1.2918385577449856`}, 
             0.027103839645414976], 
            DiskBox[{0., 0.0020140799286010314`}, 0.027103839645414976]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "2"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 
          1, -1, -3, -2, -4}, {{{1, 2}, {2, 1}, {3, 2}, {4, 1}, {2, 5}, {1, 
           6}}, Null, {1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[1, 2, 1] -> "l1", 
             DirectedEdge[1, -2, 1] -> "p3", DirectedEdge[-3, 2, 1] -> "p2", 
             DirectedEdge[2, 1, 1] -> "l1-p1+p3", DirectedEdge[2, -4, 1] -> 
             "p4"}, EdgeStyle -> {DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{0.6729354604174685, 0.6262577722402075}, {
                1.246243288529736, 0.8148060123370992}, {1.81954987304472, 
                0.626253990947273}}], 0.026475466449749782`]}, 
             InsetBox["\<\"l1-p1+p3\"\>", {1.2462429314216, 0.7065188904776478},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6729354604174685, 0.6262577722402075}, {
               0.00041758211318265737`, 0.0018565250145560208`}}, 
               0.026475466449749782`]}, 
             InsetBox["\<\"p4\"\>", {0.3366765212653256, 0.31405714862738177},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{1.81954987304472, 0.626253990947273}, {
                1.2462420449324647`, 0.43770575085038416`}, {
                0.6729354604174685, 0.6262577722402075}}], 
               0.026475466449749782`]}, 
             InsetBox["\<\"l1\"\>", {1.2462424020405887, 0.5459928727098327}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.81954987304472, 0.626253990947273}, {
               2.4909732144090033`, 0.}}, 0.026475466449749782`]}, 
             InsetBox["\<\"p3\"\>", {2.1552615437268616, 0.3131269954736365}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.4911155826092894`, 1.252372058755431}, {
               1.81954987304472, 0.626253990947273}}, 0.026475466449749782`]},
              InsetBox["\<\"p1\"\>", {2.1553327278270045, 0.9393130248513519},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0., 1.2503761326609388`}, {0.6729354604174685, 
               0.6262577722402075}}, 0.026475466449749782`]}, 
             InsetBox["\<\"p2\"\>", {0.3364677302087343, 0.9383169524505732}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{0.6729354604174685, 0.6262577722402075}, 
             0.026475466449749782], 
            DiskBox[{1.81954987304472, 0.626253990947273}, 
             0.026475466449749782], 
            DiskBox[{2.4911155826092894`, 1.252372058755431}, 
             0.026475466449749782], 
            DiskBox[{0., 1.2503761326609388`}, 0.026475466449749782], 
            DiskBox[{2.4909732144090033`, 0.}, 0.026475466449749782], 
            DiskBox[{0.00041758211318265737`, 0.0018565250145560208`}, 
             0.026475466449749782]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "3"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 
          1, -1, -3, -2, -4}, {{{1, 2}, {1, 2}, {3, 2}, {4, 1}, {2, 5}, {1, 
           6}}, Null, {1, 2, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[2, 1, 2] -> "-l1", 
             DirectedEdge[1, -2, 1] -> "p3", DirectedEdge[-3, 2, 1] -> "p2", 
             DirectedEdge[2, 1, 1] -> "l1-p1+p3", DirectedEdge[2, -4, 1] -> 
             "p4"}, EdgeStyle -> {DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 2] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{0.6954064592031528, 0.6462709207005887}, {
                1.2876132993570777`, 0.8410608644758581}, {
                1.8798344284441693`, 0.6463143677579793}}], 
               0.027102631561855398`]}, 
             InsetBox["\<\"l1-p1+p3\"\>", {1.2876174025296434, 0.7292026020761554},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{0.6954064592031528, 0.6462709207005887}, {
                1.2876275882902426`, 0.45152442398271037`}, {
                1.8798344284441693`, 0.6463143677579793}}], 
               0.027102631561855398`]}, 
             InsetBox["\<\"-l1\"\>", {1.2876234851176784, 0.5633826863824127},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6954064592031528, 0.6462709207005887}, {0., 
               0.0015742422403927092`}}, 0.027102631561855398`]}, 
             InsetBox["\<\"p4\"\>", {0.3477032296015764, 0.3239225814704907}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.8798344284441693`, 0.6463143677579793}, {
               2.573741459375663, 1.2929297288487964`}}, 
               0.027102631561855398`]}, 
             InsetBox["\<\"p3\"\>", {2.2267879439099163, 0.9696220483033879}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.5736912687755957`, 0.}, {1.8798344284441693`, 
               0.6463143677579793}}, 0.027102631561855398`]}, 
             InsetBox["\<\"p1\"\>", {2.2267628486098827, 0.3231571838789897}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.0008803662681422519, 1.2918419622486392`}, {
               0.6954064592031528, 0.6462709207005887}}, 
               0.027102631561855398`]}, 
             InsetBox["\<\"p2\"\>", {0.34814341273564753, 0.9690564414746139},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{0.6954064592031528, 0.6462709207005887}, 
             0.027102631561855398], 
            DiskBox[{1.8798344284441693`, 0.6463143677579793}, 
             0.027102631561855398], 
            DiskBox[{2.5736912687755957`, 0.}, 0.027102631561855398], 
            DiskBox[{0.0008803662681422519, 1.2918419622486392`}, 
             0.027102631561855398], 
            DiskBox[{2.573741459375663, 1.2929297288487964`}, 
             0.027102631561855398], 
            DiskBox[{0., 0.0015742422403927092`}, 0.027102631561855398]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "4"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{1, 
          2, -1, -3, -2, -4}, {{{1, 2}, {1, 2}, {3, 1}, {4, 2}, {2, 5}, {1, 
           6}}, Null, {1, 2, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[1, 2, 1] -> 
             "-l1+p1-p4", DirectedEdge[1, -4, 1] -> "p4", 
             DirectedEdge[-3, 2, 1] -> "p2", DirectedEdge[2, -2, 1] -> "p3", 
             DirectedEdge[1, 2, 2] -> "l1"}, 
           EdgeStyle -> {DirectedEdge[1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[1, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[1, 2, 2] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{0.6938343461059105, 0.6468255003782204}, {
                1.285790486628562, 0.8415295159312299}, {1.8777588518239194`, 
                0.6468626708269024}}], 0.02709555327978623]}, 
             InsetBox["\<\"-l1+p1-p4\"\>", {1.2857939970335073, 0.7297188010028223},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{0.6938343461059105, 0.6468255003782204}, {
                1.285802711301268, 0.45215865527389193`}, {
                1.8777588518239194`, 0.6468626708269024}}], 
               0.02709555327978623]}, 
             InsetBox["\<\"l1\"\>", {1.285799200896323, 0.5639693702023009}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6938343461059105, 0.6468255003782204}, {0., 0.}}, 
               0.02709555327978623]}, 
             InsetBox["\<\"p4\"\>", {0.3469171730529553, 0.3234127501891102}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.8777588518239194`, 0.6468626708269024}, {
               2.572804226139244, 0.0016658458984565305`}}, 
               0.02709555327978623]}, 
             InsetBox["\<\"p3\"\>", {2.225281538981582, 0.32426425836267947}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.0008930929091257589, 1.294549559828648}, {
               0.6938343461059105, 0.6468255003782204}}, 
               0.02709555327978623]}, 
             InsetBox["\<\"p1\"\>", {0.34736371950751815, 0.9706875301034342},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.572297269360754, 1.2926712874778845`}, {
               1.8777588518239194`, 0.6468626708269024}}, 
               0.02709555327978623]}, 
             InsetBox["\<\"p2\"\>", {2.2250280605923365, 0.9697669791523935}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{0.6938343461059105, 0.6468255003782204}, 
             0.02709555327978623], 
            DiskBox[{1.8777588518239194`, 0.6468626708269024}, 
             0.02709555327978623], 
            DiskBox[{0.0008930929091257589, 1.294549559828648}, 
             0.02709555327978623], 
            DiskBox[{2.572297269360754, 1.2926712874778845`}, 
             0.02709555327978623], 
            DiskBox[{2.572804226139244, 0.0016658458984565305`}, 
             0.02709555327978623], DiskBox[{0., 0.}, 0.02709555327978623]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "5"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {1, 3}, {3, 1}, {4, 2}, {5, 2}, {3, 
           6}, {3, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[-3, 1, 1] -> "p2", 
             DirectedEdge[3, -2, 1] -> "p3", DirectedEdge[3, 2, 1] -> "-l1", 
             DirectedEdge[2, 1, 1] -> "-p1-p2", DirectedEdge[2, 3, 1] -> 
             "-l1+p1+p2", DirectedEdge[3, -4, 1] -> "p4"}, 
           EdgeStyle -> {DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.8052754375403235`, 0.5808803973685888}, {
               2.9346102066059205`, 0.5811118575899278}}, 
               0.034459007293962715`]}, 
             InsetBox["\<\"-p1-p2\"\>", {2.369942822073122, 0.5809961274792583},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{1.8052754375403235`, 0.5808803973685888}, {
                1.240109543288465, 0.39510248406167114`}, {0.6749998537134316,
                 0.5810512938094085}}], 0.034459007293962715`]}, 
             InsetBox["\<\"-l1+p1+p2\"\>", {1.24012568287602, 0.5018465547211163},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{0.6749998537134316, 0.5810512938094085}, {
                1.2401657479653039`, 0.7668292071163263}, {
                1.8052754375403235`, 0.5808803973685888}}], 
               0.034459007293962715`]}, 
             InsetBox["\<\"-l1\"\>", {1.240149608377735, 0.6600851364568812}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6749998537134316, 0.5810512938094085}, {0., 0.}}, 
               0.034459007293962715`]}, 
             InsetBox["\<\"p3\"\>", {0.3374999268567158, 0.2905256469047042}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6749998537134316, 0.5810512938094085}, {
               0.000833874831543957, 1.1627357857905603`}}, 
               0.034459007293962715`]}, 
             InsetBox["\<\"p4\"\>", {0.3379168642724878, 0.8718935397999843}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{3.609357393333812, 1.1610347191541983`}, {
               2.9346102066059205`, 0.5811118575899278}}, 
               0.034459007293962715`]}, 
             InsetBox["\<\"p1\"\>", {3.271983799969866, 0.8710732883720631}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.609873778637664, 0.0015604192472754574`}, {
               2.9346102066059205`, 0.5811118575899278}}, 
               0.034459007293962715`]}, 
             InsetBox["\<\"p2\"\>", {3.272241992621792, 0.2913361384186016}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.8052754375403235`, 0.5808803973685888}, 
             0.034459007293962715], 
            DiskBox[{2.9346102066059205`, 0.5811118575899278}, 
             0.034459007293962715], 
            DiskBox[{0.6749998537134316, 0.5810512938094085}, 
             0.034459007293962715], 
            DiskBox[{3.609357393333812, 1.1610347191541983`}, 
             0.034459007293962715], 
            DiskBox[{3.609873778637664, 0.0015604192472754574`}, 
             0.034459007293962715], DiskBox[{0., 0.}, 0.034459007293962715], 
            DiskBox[{0.000833874831543957, 1.1627357857905603`}, 
             0.034459007293962715]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "6"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 1}, {3, 1}, {4, 2}, {5, 2}, {3, 
           6}, {3, 7}}, Null, {1, 1, 2, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 2, 2] -> "-l1", DirectedEdge[-1, 1, 1] -> "p1", 
             DirectedEdge[-3, 1, 1] -> "p2", DirectedEdge[3, -2, 1] -> "p3", 
             DirectedEdge[3, 2, 1] -> "l1-p1-p2", DirectedEdge[2, 1, 1] -> 
             "-p1-p2", DirectedEdge[3, -4, 1] -> "p4"}, 
           EdgeStyle -> {DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, 2, 2] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.8485324025347223`, 0.5947991171896158}, {
               3.004927637586046, 0.5950361235267906}}, 
               0.035033496681211265`]}, 
             InsetBox["\<\"-p1-p2\"\>", {2.426730020060384, 0.5949176203582032},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{0.6911738094634134, 0.5949741085520216}, {
                1.2698818817094486`, 0.7852035246742638}, {
                1.8485324025347223`, 0.5947991171896158}}], 
               0.035033496681211265`]}, 
             InsetBox["\<\"l1-p1-p2\"\>", {1.2698653553944363, 0.6759017143858104},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{0.6911738094634134, 0.5949741085520216}, {
                1.2698243302886805`, 0.40456970106737355`}, {
                1.8485324025347223`, 0.5947991171896158}}], 
               0.035033496681211265`]}, 
             InsetBox["\<\"-l1\"\>", {1.2698408566036994, 0.513871511355827}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6911738094634134, 0.5949741085520216}, {0., 0.}}, 
               0.035033496681211265`]}, 
             InsetBox["\<\"p3\"\>", {0.3455869047317067, 0.2974870542760108}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6911738094634134, 0.5949741085520216}, {
               0.0008538556575430345, 1.1905965876038316`}}, 
               0.035033496681211265`]}, 
             InsetBox["\<\"p4\"\>", {0.34601383256047824, 0.8927853480779266},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{3.6958427258038764`, 1.1888547609934443`}, {
               3.004927637586046, 0.5950361235267906}}, 
               0.035033496681211265`]}, 
             InsetBox["\<\"p1\"\>", {3.3503851816949615, 0.8919454422601174}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.6963714844334534`, 0.0015978091099814185`}, {
               3.004927637586046, 0.5950361235267906}}, 
               0.035033496681211265`]}, 
             InsetBox["\<\"p2\"\>", {3.3506495610097495, 0.298316966318386}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.8485324025347223`, 0.5947991171896158}, 
             0.035033496681211265], 
            DiskBox[{3.004927637586046, 0.5950361235267906}, 
             0.035033496681211265], 
            DiskBox[{0.6911738094634134, 0.5949741085520216}, 
             0.035033496681211265], 
            DiskBox[{3.6958427258038764`, 1.1888547609934443`}, 
             0.035033496681211265], 
            DiskBox[{3.6963714844334534`, 0.0015978091099814185`}, 
             0.035033496681211265], DiskBox[{0., 0.}, 0.035033496681211265], 
            DiskBox[{0.0008538556575430345, 1.1905965876038316`}, 
             0.035033496681211265]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "7"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {1, 3}, {3, 1}, {4, 2}, {5, 3}, {2, 
           6}, {3, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[-3, 3, 1] -> "p2", 
             DirectedEdge[1, -2, 1] -> "p3", DirectedEdge[3, 2, 1] -> "-l1", 
             DirectedEdge[2, 1, 1] -> "-p1+p3", DirectedEdge[2, 3, 1] -> 
             "-l1+p1-p3", DirectedEdge[3, -4, 1] -> "p4"}, 
           EdgeStyle -> {DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.8039509057767946`, 0.5804773072988696}, {
               0.6746992761173216, 0.5805168769622853}}, 
               0.034456086642336056`]}, 
             InsetBox["\<\"-p1+p3\"\>", {1.2393250909470581, 0.5804970921305774},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{1.8039509057767946`, 0.5804773072988696}, {
                2.369218649897693, 0.7664906903131423}, {2.9345500728531415`, 
                0.5806709297301318}}], 0.034456086642336056`]}, 
             InsetBox["\<\"-l1+p1-p3\"\>", {2.3692369357447793, 0.659716060209845},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6746992761173216, 0.5805168769622853}, {0., 
               0.0005294266136346426}}, 0.034456086642336056`]}, 
             InsetBox["\<\"p3\"\>", {0.3373496380586608, 0.29052315178795995},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{2.9345500728531415`, 0.5806709297301318}, {
                2.369282328732235, 0.39465754671585856`}, {
                1.8039509057767946`, 0.5804773072988696}}], 
               0.034456086642336056`]}, 
             InsetBox["\<\"-l1\"\>", {2.3692640428851566, 0.5014321768191564},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.9345500728531415`, 0.5806709297301318}, {
               3.6094362297478977`, 0.}}, 0.034456086642336056`]}, 
             InsetBox["\<\"p4\"\>", {3.27199315130052, 0.2903354648650659}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.0007931130259088981, 1.161427734264353}, {
               0.6746992761173216, 0.5805168769622853}}, 
               0.034456086642336056`]}, 
             InsetBox["\<\"p1\"\>", {0.33774619457161525, 0.8709723056133192},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.6088865598060433`, 1.1617823472757904`}, {
               2.9345500728531415`, 0.5806709297301318}}, 
               0.034456086642336056`]}, 
             InsetBox["\<\"p2\"\>", {3.2717183163295926, 0.8712266385029611}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.8039509057767946`, 0.5804773072988696}, 
             0.034456086642336056], 
            DiskBox[{0.6746992761173216, 0.5805168769622853}, 
             0.034456086642336056], 
            DiskBox[{2.9345500728531415`, 0.5806709297301318}, 
             0.034456086642336056], 
            DiskBox[{0.0007931130259088981, 1.161427734264353}, 
             0.034456086642336056], 
            DiskBox[{3.6088865598060433`, 1.1617823472757904`}, 
             0.034456086642336056], 
            DiskBox[{0., 0.0005294266136346426}, 0.034456086642336056], 
            DiskBox[{3.6094362297478977`, 0.}, 0.034456086642336056]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "8"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 1}, {3, 1}, {4, 2}, {5, 3}, {2, 
           6}, {3, 7}}, Null, {1, 1, 2, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 2, 2] -> "-l1", DirectedEdge[-1, 1, 1] -> "p1", 
             DirectedEdge[-3, 3, 1] -> "p2", DirectedEdge[1, -2, 1] -> "p3", 
             DirectedEdge[3, 2, 1] -> "l1-p1+p3", DirectedEdge[2, 1, 1] -> 
             "-p1+p3", DirectedEdge[3, -4, 1] -> "p4"}, 
           EdgeStyle -> {DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 2, 2] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.8472942204502598`, 0.5944243667839648}, {
               0.6909101956834058, 0.5944648871829951}}, 
               0.035032097229639445`]}, 
             InsetBox["\<\"-p1+p3\"\>", {1.2691022080668328, 0.59444462698348},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6909101956834058, 0.5944648871829951}, {0., 
               0.0005421470841516784}}, 0.035032097229639445`]}, 
             InsetBox["\<\"p3\"\>", {0.3454550978417029, 0.29750351713357337},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{3.005058159755841, 0.5946226413584418}, {
                2.426208794522231, 0.4041399368301253}, {1.8472942204502598`, 
                0.5944243667839648}}], 0.035032097229639445`]}, 
             InsetBox["\<\"l1-p1+p3\"\>", {2.4261900693232636, 0.5134800283198125},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{3.005058159755841, 0.5946226413584418}, {
                2.426143585683871, 0.7849070713122781}, {1.8472942204502598`, 
                0.5944243667839648}}], 0.035032097229639445`]}, 
             InsetBox["\<\"-l1\"\>", {2.426162310882837, 0.6755669798225941}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.005058159755841, 0.5946226413584418}, {
               3.696159726378978, 0.}}, 0.035032097229639445`]}, 
             InsetBox["\<\"p4\"\>", {3.3506089430674093, 0.2973113206792209}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.0008121690586111452, 1.1893332208247163`}, {
               0.6909101956834058, 0.5944648871829951}}, 
               0.035032097229639445`]}, 
             InsetBox["\<\"p1\"\>", {0.3458611823710085, 0.8918990540038556}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.695596849582558, 1.1896963540809633`}, {
               3.005058159755841, 0.5946226413584418}}, 
               0.035032097229639445`]}, 
             InsetBox["\<\"p2\"\>", {3.3503275046692, 0.8921594977197025}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.8472942204502598`, 0.5944243667839648}, 
             0.035032097229639445], 
            DiskBox[{0.6909101956834058, 0.5944648871829951}, 
             0.035032097229639445], 
            DiskBox[{3.005058159755841, 0.5946226413584418}, 
             0.035032097229639445], 
            DiskBox[{0.0008121690586111452, 1.1893332208247163`}, 
             0.035032097229639445], 
            DiskBox[{3.695596849582558, 1.1896963540809633`}, 
             0.035032097229639445], 
            DiskBox[{0., 0.0005421470841516784}, 0.035032097229639445], 
            DiskBox[{3.696159726378978, 0.}, 0.035032097229639445]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "9"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {1, 3}, {3, 1}, {4, 3}, {5, 2}, {3, 
           6}, {2, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-3, 1, 1] -> "p2", DirectedEdge[1, -4, 1] -> "p4", 
             DirectedEdge[3, -2, 1] -> "p3", DirectedEdge[3, 2, 1] -> "-l1", 
             DirectedEdge[2, 1, 1] -> "-p2+p4", DirectedEdge[-1, 3, 1] -> 
             "p1", DirectedEdge[2, 3, 1] -> "-l1+p2-p4"}, 
           EdgeStyle -> {DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.8056267085435571`, 0.5826064908846861}, {
               2.9364493744058295`, 0.5823110924002107}}, 
               0.0344699679996667]}, 
             InsetBox["\<\"-p2+p4\"\>", {2.3710380414746934, 0.5824587916424484},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{1.8056267085435571`, 0.5826064908846861}, {
                1.2409028281014156`, 0.39674186437869646`}, {
                0.6760973965725288, 0.5823585259242028}}], 
               0.0344699679996667]}, 
             InsetBox["\<\"-l1+p2-p4\"\>", {1.240879410105277, 0.5034154565664724},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.9364493744058295`, 0.5823110924002107}, {
               3.6097303547702007`, 0.}}, 0.0344699679996667]}, 
             InsetBox["\<\"p4\"\>", {3.273089864588015, 0.29115554620010536}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{0.6760973965725288, 0.5823585259242028}, {
                1.2408212770146618`, 0.7682231524301911}, {
                1.8056267085435571`, 0.5826064908846861}}], 
               0.0344699679996667]}, 
             InsetBox["\<\"-l1\"\>", {1.2408446950108092, 0.6615495602424164},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6760973965725288, 0.5823585259242028}, {0., 
               1.1612397953611187`}}, 0.0344699679996667]}, 
             InsetBox["\<\"p3\"\>", {0.3380486982862644, 0.8717991606426607}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.001555280369212264, 0.002004264553443713}, {
               0.6760973965725288, 0.5823585259242028}}, 0.0344699679996667]},
              InsetBox["\<\"p1\"\>", {0.3388263384708705, 0.29218139523882325},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.611516022035122, 1.1631976048625554`}, {
               2.9364493744058295`, 0.5823110924002107}}, 
               0.0344699679996667]}, 
             InsetBox["\<\"p2\"\>", {3.273982698220476, 0.8727543486313831}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.8056267085435571`, 0.5826064908846861}, 
             0.0344699679996667], 
            DiskBox[{2.9364493744058295`, 0.5823110924002107}, 
             0.0344699679996667], 
            DiskBox[{0.6760973965725288, 0.5823585259242028}, 
             0.0344699679996667], 
            DiskBox[{0.001555280369212264, 0.002004264553443713}, 
             0.0344699679996667], 
            DiskBox[{3.611516022035122, 1.1631976048625554`}, 
             0.0344699679996667], 
            DiskBox[{0., 1.1612397953611187`}, 0.0344699679996667], 
            DiskBox[{3.6097303547702007`, 0.}, 0.0344699679996667]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "10"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 1}, {3, 1}, {4, 3}, {5, 2}, {3, 
           6}, {2, 7}}, Null, {1, 1, 2, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 2, 2] -> "-l1", DirectedEdge[-3, 1, 1] -> "p2", 
             DirectedEdge[1, -4, 1] -> "p4", DirectedEdge[3, -2, 1] -> "p3", 
             DirectedEdge[3, 2, 1] -> "l1-p2+p4", DirectedEdge[2, 1, 1] -> 
             "-p2+p4", DirectedEdge[-1, 3, 1] -> "p1"}, 
           EdgeStyle -> {DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, 2, 2] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.8486197192637077`, 0.596478686610257}, {
               3.0063679233703837`, 0.5961762545179213}}, 
               0.0350410089799434]}, 
             InsetBox["\<\"-p2+p4\"\>", {2.4274938213170456, 0.5963274705640892},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.0063679233703837`, 0.5961762545179213}, {
               3.6956801112205078`, 0.}}, 0.0350410089799434]}, 
             InsetBox["\<\"p4\"\>", {3.3510240172954457, 0.29808812725896067},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{0.6921956645485019, 0.5962248174614085}, {
                1.2703659454735865`, 0.7865149876537348}, {
                1.8486197192637077`, 0.596478686610257}}], 
               0.0350410089799434]}, 
             InsetBox["\<\"l1-p2+p4\"\>", {1.2703899210656853, 0.6773014358658973},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{0.6921956645485019, 0.5962248174614085}, {
                1.2704494383386251`, 0.4061885164179358}, {
                1.8486197192637077`, 0.596478686610257}}], 
               0.0350410089799434]}, 
             InsetBox["\<\"-l1\"\>", {1.2704254627465241, 0.5154020682057683},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6921956645485019, 0.5962248174614085}, {0., 
               1.188889582958078}}, 0.0350410089799434]}, 
             InsetBox["\<\"p3\"\>", {0.34609783227425095, 0.8925572002097433},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.0015923124895669272`, 0.002051987245528575}, {
               0.6921956645485019, 0.5962248174614085}}, 0.0350410089799434]},
              InsetBox["\<\"p1\"\>", {0.3468939885190344, 0.29913840235346856},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.697508296250314, 1.1908940090300852`}, {
               3.0063679233703837`, 0.5961762545179213}}, 
               0.0350410089799434]}, 
             InsetBox["\<\"p2\"\>", {3.351938109810349, 0.8935351317740032}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.8486197192637077`, 0.596478686610257}, 
             0.0350410089799434], 
            DiskBox[{3.0063679233703837`, 0.5961762545179213}, 
             0.0350410089799434], 
            DiskBox[{0.6921956645485019, 0.5962248174614085}, 
             0.0350410089799434], 
            DiskBox[{0.0015923124895669272`, 0.002051987245528575}, 
             0.0350410089799434], 
            DiskBox[{3.697508296250314, 1.1908940090300852`}, 
             0.0350410089799434], 
            DiskBox[{0., 1.188889582958078}, 0.0350410089799434], 
            DiskBox[{3.6956801112205078`, 0.}, 0.0350410089799434]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "11"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {1, 3}, {3, 1}, {4, 3}, {5, 3}, {2, 
           6}, {2, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-3, 3, 1] -> "p2", DirectedEdge[1, -2, 1] -> "p3", 
             DirectedEdge[1, -4, 1] -> "p4", DirectedEdge[3, 2, 1] -> "-l1", 
             DirectedEdge[2, 1, 1] -> "p3+p4", DirectedEdge[-1, 3, 1] -> "p1",
              DirectedEdge[2, 3, 1] -> "-l1-p3-p4"}, 
           EdgeStyle -> {DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[1, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.8048385169429177`, 0.5815904336123984}, {
               0.6752922047730483, 0.5814598399270485}}, 
               0.034459149286608745`]}, 
             InsetBox["\<\"p3+p4\"\>", {1.240065360857983, 0.5815251367697234},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{1.8048385169429177`, 0.5815904336123984}, {
                2.36996692665965, 0.7674234276911176}, {2.9350791429379184`, 
                0.5815411956991675}}], 0.034459149286608745`]}, 
             InsetBox["\<\"-l1-p3-p4\"\>", {2.369962276594344, 0.6606826584754331},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6752922047730483, 0.5814598399270485}, {
               0.0007519192939935415, 0.0011727414052040697`}}, 
               0.034459149286608745`]}, 
             InsetBox["\<\"p3\"\>", {0.3380220620335209, 0.2913162906661263}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6752922047730483, 0.5814598399270485}, {0., 
               1.1612533045138527`}}, 0.034459149286608745`]}, 
             InsetBox["\<\"p4\"\>", {0.33764610238652415, 0.8713565722204506},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{2.9350791429379184`, 0.5815411956991675}, {
                2.369950733221186, 0.39570820162045445`}, {
                1.8048385169429177`, 0.5815904336123984}}], 
               0.034459149286608745`]}, 
             InsetBox["\<\"-l1\"\>", {2.3699553832864915, 0.5024489708361328},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{3.6098950514149104`, 1.1623789489725032`}, {
               2.9350791429379184`, 0.5815411956991675}}, 
               0.034459149286608745`]}, 
             InsetBox["\<\"p1\"\>", {3.2724870971764144, 0.8719600723358354}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.6091566283611525`, 0.}, {2.9350791429379184`, 
               0.5815411956991675}}, 0.034459149286608745`]}, 
             InsetBox["\<\"p2\"\>", {3.2721178856495357, 0.29077059784958376},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.8048385169429177`, 0.5815904336123984}, 
             0.034459149286608745], 
            DiskBox[{0.6752922047730483, 0.5814598399270485}, 
             0.034459149286608745], 
            DiskBox[{2.9350791429379184`, 0.5815411956991675}, 
             0.034459149286608745], 
            DiskBox[{3.6098950514149104`, 1.1623789489725032`}, 
             0.034459149286608745], 
            DiskBox[{3.6091566283611525`, 0.}, 0.034459149286608745], 
            DiskBox[{0.0007519192939935415, 0.0011727414052040697`}, 
             0.034459149286608745], 
            DiskBox[{0., 1.1612533045138527`}, 0.034459149286608745]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "12"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 1}, {3, 1}, {4, 3}, {5, 3}, {2, 
           6}, {2, 7}}, Null, {1, 1, 2, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 2, 2] -> "-l1", DirectedEdge[-3, 3, 1] -> "p2", 
             DirectedEdge[1, -2, 1] -> "p3", DirectedEdge[1, -4, 1] -> "p4", 
             DirectedEdge[3, 2, 1] -> "l1+p3+p4", DirectedEdge[2, 1, 1] -> 
             "p3+p4", DirectedEdge[-1, 3, 1] -> "p1"}, 
           EdgeStyle -> {DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 2, 2] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.8480722473113596`, 0.5955220562531721}, {
               0.6914683872505645, 0.5953883332952539}}, 
               0.03503347193169867]}, 
             InsetBox["\<\"p3+p4\"\>", {1.269770317280962, 0.595455194774213},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6914683872505645, 0.5953883332952539}, {
               0.0007699306814297202, 0.0012008454640278776`}}, 
               0.03503347193169867]}, 
             InsetBox["\<\"p3\"\>", {0.3461191589659971, 0.2982945893796409}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6914683872505645, 0.5953883332952539}, {0., 
               1.189070370078588}}, 0.03503347193169867]}, 
             InsetBox["\<\"p4\"\>", {0.34573419362528224, 0.892229351686921}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{3.005387052094939, 0.5954716406543762}, {
                2.426721359324418, 0.4051871372290827}, {1.8480722473113596`, 
                0.5955220562531721}}], 0.03503347193169867]}, 
             InsetBox["\<\"l1+p3+p4\"\>", {2.4267261206112334, 0.5144848121189235},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{3.005387052094939, 0.5954716406543762}, {
                2.4267379400818827`, 0.785806559678468}, {1.8480722473113596`,
                 0.5955220562531721}}], 0.03503347193169867]}, 
             InsetBox["\<\"-l1\"\>", {2.4267331787950646, 0.6765088847886248},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{3.696367739415467, 1.1902229880502602`}, {
               3.005387052094939, 0.5954716406543762}}, 0.03503347193169867]},
              InsetBox["\<\"p1\"\>", {3.350877395755203, 0.8928473143523181}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.6956116262927843`, 0.}, {3.005387052094939, 
               0.5954716406543762}}, 0.03503347193169867]}, 
             InsetBox["\<\"p2\"\>", {3.3504993391938616, 0.2977358203271881}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.8480722473113596`, 0.5955220562531721}, 
             0.03503347193169867], 
            DiskBox[{0.6914683872505645, 0.5953883332952539}, 
             0.03503347193169867], 
            DiskBox[{3.005387052094939, 0.5954716406543762}, 
             0.03503347193169867], 
            DiskBox[{3.696367739415467, 1.1902229880502602`}, 
             0.03503347193169867], 
            DiskBox[{3.6956116262927843`, 0.}, 0.03503347193169867], 
            DiskBox[{0.0007699306814297202, 0.0012008454640278776`}, 
             0.03503347193169867], 
            DiskBox[{0., 1.189070370078588}, 0.03503347193169867]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "13"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {2, 3}, {3, 1}, {4, 2}, {5, 1}, {3, 
           6}, {3, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[1, 3, 1] -> "-l1+p1",
              DirectedEdge[3, -2, 1] -> "p3", DirectedEdge[-3, 2, 1] -> "p2", 
             DirectedEdge[3, 2, 1] -> "-l1-p2", DirectedEdge[2, 1, 1] -> 
             "-l1", DirectedEdge[3, -4, 1] -> "p4"}, 
           EdgeStyle -> {DirectedEdge[1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.745536604872909, 0.7780554367867123}, {
               1.7460300262526256`, 1.6747524594547603`}}, 
               0.026169053918001922`]}, 
             InsetBox["\<\"-l1\"\>", {1.7457833155627673, 1.2264039481207363},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7460300262526256`, 1.6747524594547603`}, {
               0.8081710178837188, 1.2266644922516001`}}, 
               0.026169053918001922`]}, 
             InsetBox["\<\"-l1+p1\"\>", {1.2771005220681722, 1.45070847585318},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8081710178837188, 1.2266644922516001`}, {
               1.745536604872909, 0.7780554367867123}}, 
               0.026169053918001922`]}, 
             InsetBox["\<\"-l1-p2\"\>", {1.2768538113783139, 1.0023599645191563},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8081710178837188, 1.2266644922516001`}, {0., 
               1.831285131171541}}, 0.026169053918001922`]}, 
             InsetBox["\<\"p3\"\>", {0.4040855089418594, 1.5289748117115707}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.8081710178837188, 1.2266644922516001`}, {
               0.0006798540928198982, 0.6211714607998907}}, 
               0.026169053918001922`]}, 
             InsetBox["\<\"p4\"\>", {0.40442543598826936, 0.9239179765257455},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.375106281125708, 2.4510516012341945`}, {
               1.7460300262526256`, 1.6747524594547603`}}, 
               0.026169053918001922`]}, 
             InsetBox["\<\"p1\"\>", {2.060568153689167, 2.0629020303444774}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.373668498067186, 0.}, {1.745536604872909, 
               0.7780554367867123}}, 0.026169053918001922`]}, 
             InsetBox["\<\"p2\"\>", {2.0596025514700473, 0.38902771839335615},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.745536604872909, 0.7780554367867123}, 
             0.026169053918001922], 
            DiskBox[{1.7460300262526256`, 1.6747524594547603`}, 
             0.026169053918001922], 
            DiskBox[{0.8081710178837188, 1.2266644922516001`}, 
             0.026169053918001922], 
            DiskBox[{2.375106281125708, 2.4510516012341945`}, 
             0.026169053918001922], 
            DiskBox[{2.373668498067186, 0.}, 0.026169053918001922], 
            DiskBox[{0., 1.831285131171541}, 0.026169053918001922], 
            DiskBox[{0.0006798540928198982, 0.6211714607998907}, 
             0.026169053918001922]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "14"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{1, 2, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 1}, {3, 2}, {4, 1}, {5, 2}, {3, 
           6}, {3, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[1, 2, 1] -> "l1", 
             DirectedEdge[3, 1, 1] -> "l1-p1", DirectedEdge[3, -2, 1] -> "p3",
              DirectedEdge[-3, 2, 1] -> "p2", DirectedEdge[3, 2, 1] -> 
             "-l1-p2", DirectedEdge[3, -4, 1] -> "p4"}, 
           EdgeStyle -> {DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6293300495825717, 0.7779816549223446}, {
               0.6301886550583723, 1.6750649636508528`}}, 
               0.02618737040291179]}, 
             InsetBox["\<\"l1\"\>", {0.629759352320472, 1.2265233092865988}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5662266222539323`, 1.2256639634454431`}, {
               0.6293300495825717, 0.7779816549223446}}, 
               0.02618737040291179]}, 
             InsetBox["\<\"l1-p1\"\>", {1.097778335918252, 1.0018228091838939},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5662266222539323`, 1.2256639634454431`}, {
               0.6301886550583723, 1.6750649636508528`}}, 
               0.02618737040291179]}, 
             InsetBox["\<\"-l1-p2\"\>", {1.0982076386561523, 1.4503644635481479},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.5662266222539323`, 1.2256639634454431`}, {
               2.3750642003027584`, 0.6213549365027362}}, 
               0.02618737040291179]}, 
             InsetBox["\<\"p3\"\>", {1.9706454112783454, 0.9235094499740897}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{1.5662266222539323`, 1.2256639634454431`}, {
               2.374127102236268, 1.8302199512915363`}}, 
               0.02618737040291179]}, 
             InsetBox["\<\"p4\"\>", {1.9701768622451001, 1.5279419573684896}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0., 0.}, {0.6293300495825717, 0.7779816549223446}}, 
               0.02618737040291179]}, 
             InsetBox["\<\"p1\"\>", {0.31466502479128583, 0.3889908274611723},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.002384431962463296, 2.4534409414323246`}, {
               0.6301886550583723, 1.6750649636508528`}}, 
               0.02618737040291179]}, 
             InsetBox["\<\"p2\"\>", {0.3162865435104178, 2.0642529525415885}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{0.6293300495825717, 0.7779816549223446}, 
             0.02618737040291179], 
            DiskBox[{0.6301886550583723, 1.6750649636508528`}, 
             0.02618737040291179], 
            DiskBox[{1.5662266222539323`, 1.2256639634454431`}, 
             0.02618737040291179], DiskBox[{0., 0.}, 0.02618737040291179], 
            DiskBox[{0.002384431962463296, 2.4534409414323246`}, 
             0.02618737040291179], 
            DiskBox[{2.3750642003027584`, 0.6213549365027362}, 
             0.02618737040291179], 
            DiskBox[{2.374127102236268, 1.8302199512915363`}, 
             0.02618737040291179]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "15"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {2, 3}, {3, 1}, {4, 2}, {5, 3}, {1, 
           6}, {3, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[-3, 3, 1] -> "p2", 
             DirectedEdge[1, 3, 1] -> "-l1+p1", DirectedEdge[3, 2, 1] -> 
             "-l1+p3", DirectedEdge[2, 1, 1] -> "-l1", DirectedEdge[2, -2, 1] -> 
             "p3", DirectedEdge[3, -4, 1] -> "p4"}, 
           EdgeStyle -> {DirectedEdge[1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7450064034011574`, 1.673273315140726}, {
               1.7460633469921378`, 0.7764152830489102}}, 
               0.02617979851276074]}, 
             InsetBox["\<\"-l1\"\>", {1.7455348751966477, 1.224844299094818}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7450064034011574`, 1.673273315140726}, {
               2.3712915396755254`, 2.4524531213601466`}}, 
               0.02617979851276074]}, 
             InsetBox["\<\"p3\"\>", {2.0581489715383414, 2.0628632182504365}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7460633469921378`, 0.7764152830489102}, {
               0.8081590586608081, 1.2242259131662048`}}, 
               0.02617979851276074]}, 
             InsetBox["\<\"-l1+p1\"\>", {1.277111202826473, 1.0003205981075576},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8081590586608081, 1.2242259131662048`}, {
               1.7450064034011574`, 1.673273315140726}}, 
               0.02617979851276074]}, 
             InsetBox["\<\"-l1+p3\"\>", {1.2765827310309827, 1.4487496141534653},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.8081590586608081, 1.2242259131662048`}, {0., 
               1.8289502505618414`}}, 0.02617979851276074]}, 
             InsetBox["\<\"p4\"\>", {0.40407952933040403, 1.526588081864023}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.3753048034807724`, 0.}, {1.7460633469921378`, 
               0.7764152830489102}}, 0.02617979851276074]}, 
             InsetBox["\<\"p1\"\>", {2.060684075236455, 0.3882076415244551}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.00009746832064805311, 0.6190620053793924}, {
               0.8081590586608081, 1.2242259131662048`}}, 
               0.02617979851276074]}, 
             InsetBox["\<\"p2\"\>", {0.40412826349072806, 0.9216439592727985},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.7450064034011574`, 1.673273315140726}, 
             0.02617979851276074], 
            DiskBox[{1.7460633469921378`, 0.7764152830489102}, 
             0.02617979851276074], 
            DiskBox[{0.8081590586608081, 1.2242259131662048`}, 
             0.02617979851276074], 
            DiskBox[{2.3753048034807724`, 0.}, 0.02617979851276074], 
            DiskBox[{0.00009746832064805311, 0.6190620053793924}, 
             0.02617979851276074], 
            DiskBox[{2.3712915396755254`, 2.4524531213601466`}, 
             0.02617979851276074], 
            DiskBox[{0., 1.8289502505618414`}, 0.02617979851276074]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "16"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{1, 2, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 1}, {3, 2}, {4, 1}, {5, 3}, {2, 
           6}, {3, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[1, 2, 1] -> "l1", 
             DirectedEdge[-3, 3, 1] -> "p2", DirectedEdge[3, 1, 1] -> "l1-p1",
              DirectedEdge[3, 2, 1] -> "-l1+p3", DirectedEdge[2, -2, 1] -> 
             "p3", DirectedEdge[3, -4, 1] -> "p4"}, 
           EdgeStyle -> {DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6296440306326674, 0.7770642174738169}, {
               0.6308629438436885, 1.6741506444195526`}}, 
               0.026174892720961074`]}, 
             InsetBox["\<\"l1\"\>", {0.630253487238178, 1.2256074309466847}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6308629438436885, 1.6741506444195526`}, {
               0.0033240956813087585`, 2.451813181901918}}, 
               0.026174892720961074`]}, 
             InsetBox["\<\"p3\"\>", {0.3170935197624986, 2.062981913160735}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5673657993156105`, 1.2250791231651184`}, {
               0.6296440306326674, 0.7770642174738169}}, 
               0.026174892720961074`]}, 
             InsetBox["\<\"l1-p1\"\>", {1.0985049149741388, 1.0010716703194675},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5673657993156105`, 1.2250791231651184`}, {
               0.6308629438436885, 1.6741506444195526`}}, 
               0.026174892720961074`]}, 
             InsetBox["\<\"-l1+p3\"\>", {1.0991143715796494, 1.4496148837923355},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{1.5673657993156105`, 1.2250791231651184`}, {
               2.3750283913771915`, 0.6191653041465863}}, 
               0.026174892720961074`]}, 
             InsetBox["\<\"p4\"\>", {1.971197095346401, 0.9221222136558523}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0., 0.}, {0.6296440306326674, 0.7770642174738169}}, 
               0.026174892720961074`]}, 
             InsetBox["\<\"p1\"\>", {0.3148220153163337, 0.38853210873690847},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.3759326584198734`, 1.8287486853156518`}, {
               1.5673657993156105`, 1.2250791231651184`}}, 
               0.026174892720961074`]}, 
             InsetBox["\<\"p2\"\>", {1.9716492288677419, 1.5269139042403852}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{0.6296440306326674, 0.7770642174738169}, 
             0.026174892720961074], 
            DiskBox[{0.6308629438436885, 1.6741506444195526`}, 
             0.026174892720961074], 
            DiskBox[{1.5673657993156105`, 1.2250791231651184`}, 
             0.026174892720961074], DiskBox[{0., 0.}, 0.026174892720961074], 
            DiskBox[{2.3759326584198734`, 1.8287486853156518`}, 
             0.026174892720961074], 
            DiskBox[{0.0033240956813087585`, 2.451813181901918}, 
             0.026174892720961074], 
            DiskBox[{2.3750283913771915`, 0.6191653041465863}, 
             0.026174892720961074]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "17"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {2, 3}, {1, 3}, {4, 2}, {5, 3}, {3, 
           6}, {1, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[-3, 3, 1] -> "p2", 
             DirectedEdge[1, 3, 1] -> "-l1+p1", DirectedEdge[3, -2, 1] -> 
             "p3", DirectedEdge[2, 1, 1] -> "-l1", DirectedEdge[2, -4, 1] -> 
             "p4", DirectedEdge[2, 3, 1] -> "l1-p4"}, 
           EdgeStyle -> {DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7459582244514544`, 0.7782065894001342}, {
               1.7455127799931995`, 1.675595758401696}}, 
               0.02619841852193726]}, 
             InsetBox["\<\"-l1\"\>", {1.745735502222327, 1.2269011739009152}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7459582244514544`, 0.7782065894001342}, {
               0.8092702871818798, 1.226198843388843}}, 0.02619841852193726]},
              InsetBox["\<\"l1-p4\"\>", {1.2776142558166672, 1.0022027163944887},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{1.7459582244514544`, 0.7782065894001342}, {
               2.3745423803494017`, 0.}}, 0.02619841852193726]}, 
             InsetBox["\<\"p4\"\>", {2.060250302400428, 0.3891032947000671}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7455127799931995`, 1.675595758401696}, {
               0.8092702871818798, 1.226198843388843}}, 0.02619841852193726]},
              InsetBox["\<\"-l1+p1\"\>", {1.2773915335875397, 1.4508973008952695},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8092702871818798, 1.226198843388843}, {0., 
               0.622448538675554}}, 0.02619841852193726]}, 
             InsetBox["\<\"p3\"\>", {0.4046351435909399, 0.9243236910321986}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.372263956871696, 2.454882483099736}, {
               1.7455127799931995`, 1.675595758401696}}, 
               0.02619841852193726]}, 
             InsetBox["\<\"p1\"\>", {2.0588883684324477, 2.065239120750716}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.001801886235242467, 1.8310435477419769`}, {
               0.8092702871818798, 1.226198843388843}}, 0.02619841852193726]},
              InsetBox["\<\"p2\"\>", {0.4055360867085611, 1.5286211955654099},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.7459582244514544`, 0.7782065894001342}, 
             0.02619841852193726], 
            DiskBox[{1.7455127799931995`, 1.675595758401696}, 
             0.02619841852193726], 
            DiskBox[{0.8092702871818798, 1.226198843388843}, 
             0.02619841852193726], 
            DiskBox[{2.372263956871696, 2.454882483099736}, 
             0.02619841852193726], 
            DiskBox[{0.001801886235242467, 1.8310435477419769`}, 
             0.02619841852193726], 
            DiskBox[{0., 0.622448538675554}, 0.02619841852193726], 
            DiskBox[{2.3745423803494017`, 0.}, 0.02619841852193726]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "18"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 2}, {3, 1}, {4, 3}, {5, 2}, {1, 
           6}, {3, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-3, 1, 1] -> "p2", DirectedEdge[3, 1, 1] -> "l1-p2", 
             DirectedEdge[3, 2, 1] -> "-l1+p3", DirectedEdge[2, 1, 1] -> 
             "-l1", DirectedEdge[-1, 3, 1] -> "p1", DirectedEdge[2, -2, 1] -> 
             "p3", DirectedEdge[3, -4, 1] -> "p4"}, 
           EdgeStyle -> {DirectedEdge[3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7449498958081546`, 1.6771467292903064`}, {
               1.7439505323157956`, 0.7789777363470749}}, 
               0.026187965431792873`]}, 
             InsetBox["\<\"-l1\"\>", {1.744450214061975, 1.2280622328186905}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7449498958081546`, 1.6771467292903064`}, {
               2.3751604936091937`, 2.4535185733355753`}}, 
               0.026187965431792873`]}, 
             InsetBox["\<\"p3\"\>", {2.0600551947086743, 2.065332651312941}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8083922938290888, 1.2286332251979595`}, {
               1.7449498958081546`, 1.6771467292903064`}}, 
               0.026187965431792873`]}, 
             InsetBox["\<\"-l1+p3\"\>", {1.2766710948186217, 1.452889977244133},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8083922938290888, 1.2286332251979595`}, {
               1.7439505323157956`, 0.7789777363470749}}, 
               0.026187965431792873`]}, 
             InsetBox["\<\"l1-p2\"\>", {1.2761714130724422, 1.0038054807725172},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.8083922938290888, 1.2286332251979595`}, {
               0.000028442374162995776`, 1.8329990007556745`}}, 
               0.026187965431792873`]}, 
             InsetBox["\<\"p4\"\>", {0.4042103681016259, 1.530816112976817}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0., 0.624614433483011}, {0.8083922938290888, 
               1.2286332251979595`}}, 0.026187965431792873`]}, 
             InsetBox["\<\"p1\"\>", {0.4041961469145444, 0.9266238293404853}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.371450189648713, 0.}, {1.7439505323157956`, 
               0.7789777363470749}}, 0.026187965431792873`]}, 
             InsetBox["\<\"p2\"\>", {2.0577003609822544, 0.38948886817353745},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.7449498958081546`, 1.6771467292903064`}, 
             0.026187965431792873], 
            DiskBox[{1.7439505323157956`, 0.7789777363470749}, 
             0.026187965431792873], 
            DiskBox[{0.8083922938290888, 1.2286332251979595`}, 
             0.026187965431792873], 
            DiskBox[{0., 0.624614433483011}, 0.026187965431792873], 
            DiskBox[{2.371450189648713, 0.}, 0.026187965431792873], 
            DiskBox[{2.3751604936091937`, 2.4535185733355753`}, 
             0.026187965431792873], 
            DiskBox[{0.000028442374162995776`, 1.8329990007556745`}, 
             0.026187965431792873]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "19"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 2}, {1, 3}, {4, 3}, {5, 2}, {3, 
           6}, {1, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-3, 1, 1] -> "p2", DirectedEdge[3, 1, 1] -> "l1-p2", 
             DirectedEdge[3, -2, 1] -> "p3", DirectedEdge[2, 1, 1] -> "-l1", 
             DirectedEdge[2, -4, 1] -> "p4", DirectedEdge[-1, 3, 1] -> "p1", 
             DirectedEdge[2, 3, 1] -> "l1-p4"}, 
           EdgeStyle -> {DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[2, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.746102203430632, 1.6752128746084396`}, {
               1.7459743144557853`, 0.777784353774368}}, 
               0.026167373477651093`]}, 
             InsetBox["\<\"-l1\"\>", {1.7460382589432086, 1.2264986141914038},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.746102203430632, 1.6752128746084396`}, {
               0.8089109894784043, 1.2265803612434052`}}, 
               0.026167373477651093`]}, 
             InsetBox["\<\"l1-p4\"\>", {1.277506596454518, 1.4508966179259224},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{1.746102203430632, 1.6752128746084396`}, {
               2.3765579955454865`, 2.450832427341326}}, 
               0.026167373477651093`]}, 
             InsetBox["\<\"p4\"\>", {2.0613300994880595, 2.063022650974883}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8089109894784043, 1.2265803612434052`}, {
               1.7459743144557853`, 0.777784353774368}}, 
               0.026167373477651093`]}, 
             InsetBox["\<\"l1-p2\"\>", {1.2774426519670947, 1.0021823575088866},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8089109894784043, 1.2265803612434052`}, {0., 
               0.6224034318893896}}, 0.026167373477651093`]}, 
             InsetBox["\<\"p3\"\>", {0.40445549473920217, 0.9244918965663974},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.0021361030012652105`, 1.831860093298826}, {
               0.8089109894784043, 1.2265803612434052`}}, 
               0.026167373477651093`]}, 
             InsetBox["\<\"p1\"\>", {0.4055235462398348, 1.5292202272711157}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.3743796605691725`, 0.}, {1.7459743144557853`, 
               0.777784353774368}}, 0.026167373477651093`]}, 
             InsetBox["\<\"p2\"\>", {2.060176987512479, 0.388892176887184}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.746102203430632, 1.6752128746084396`}, 
             0.026167373477651093], 
            DiskBox[{1.7459743144557853`, 0.777784353774368}, 
             0.026167373477651093], 
            DiskBox[{0.8089109894784043, 1.2265803612434052`}, 
             0.026167373477651093], 
            DiskBox[{0.0021361030012652105`, 1.831860093298826}, 
             0.026167373477651093], 
            DiskBox[{2.3743796605691725`, 0.}, 0.026167373477651093], 
            DiskBox[{0., 0.6224034318893896}, 0.026167373477651093], 
            DiskBox[{2.3765579955454865`, 2.450832427341326}, 
             0.026167373477651093]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "20"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 2}, {3, 1}, {4, 3}, {5, 2}, {3, 
           6}, {1, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-3, 1, 1] -> "p2", DirectedEdge[3, 1, 1] -> "l1-p2", 
             DirectedEdge[3, -2, 1] -> "p3", DirectedEdge[3, 2, 1] -> 
             "-l1+p4", DirectedEdge[2, 1, 1] -> "-l1", DirectedEdge[2, -4, 1] -> 
             "p4", DirectedEdge[-1, 3, 1] -> "p1"}, 
           EdgeStyle -> {DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.744996709613695, 0.778751377824027}, {
               1.7457407005057646`, 1.6763348830658296`}}, 
               0.02618595212334944]}, 
             InsetBox["\<\"-l1\"\>", {1.7453687050597297, 1.2275431304449282},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{1.744996709613695, 0.778751377824027}, {
               2.3713707088394784`, 0.}}, 0.02618595212334944]}, 
             InsetBox["\<\"p4\"\>", {2.0581837092265864, 0.3893756889120135}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{0.8082767863074849, 1.2280353415673786`}, {
               1.744996709613695, 0.778751377824027}}, 0.02618595212334944]}, 
             InsetBox["\<\"-l1+p4\"\>", {1.2766367479605898, 1.0033933596957028},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{0.8082767863074849, 1.2280353415673786`}, {
               1.7457407005057646`, 1.6763348830658296`}}, 
               0.02618595212334944]}, 
             InsetBox["\<\"l1-p2\"\>", {1.2770087434066246, 1.452185112316604},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8082767863074849, 1.2280353415673786`}, {
               0.00008308495717179731, 1.8328944780933196`}}, 
               0.02618595212334944]}, 
             InsetBox["\<\"p3\"\>", {0.40417993563232835, 1.530464909830349}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0., 0.6235630640136919}, {0.8082767863074849, 
               1.2280353415673786`}}, 0.02618595212334944]}, 
             InsetBox["\<\"p1\"\>", {0.40413839315374245, 0.9257992027905353},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.3743087811761105`, 2.453255905117448}, {
               1.7457407005057646`, 1.6763348830658296`}}, 
               0.02618595212334944]}, 
             InsetBox["\<\"p2\"\>", {2.0600247408409373, 2.0647953940916386}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.744996709613695, 0.778751377824027}, 
             0.02618595212334944], 
            DiskBox[{1.7457407005057646`, 1.6763348830658296`}, 
             0.02618595212334944], 
            DiskBox[{0.8082767863074849, 1.2280353415673786`}, 
             0.02618595212334944], 
            DiskBox[{0., 0.6235630640136919}, 0.02618595212334944], 
            DiskBox[{2.3743087811761105`, 2.453255905117448}, 
             0.02618595212334944], 
            DiskBox[{0.00008308495717179731, 1.8328944780933196`}, 
             0.02618595212334944], 
            DiskBox[{2.3713707088394784`, 0.}, 0.02618595212334944]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "21"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 2}, {1, 3}, {4, 3}, {5, 3}, {2, 
           6}, {1, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-3, 3, 1] -> "p2", DirectedEdge[1, -2, 1] -> "p3", 
             DirectedEdge[3, 1, 1] -> "l1+p3", DirectedEdge[2, 1, 1] -> "-l1",
              DirectedEdge[2, -4, 1] -> "p4", DirectedEdge[-1, 3, 1] -> "p1", 
             DirectedEdge[2, 3, 1] -> "l1-p4"}, 
           EdgeStyle -> {DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7458289690757078`, 0.7777076715065594}, {
               1.7452911576073804`, 1.6750941235230208`}}, 
               0.026179141241514756`]}, 
             InsetBox["\<\"-l1\"\>", {1.7455600633415442, 1.22640089751479}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7458289690757078`, 0.7777076715065594}, {
               0.8084150789021852, 1.2263526229832433`}}, 
               0.026179141241514756`]}, 
             InsetBox["\<\"l1-p4\"\>", {1.2771220239889465, 1.0020301472449014},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{1.7458289690757078`, 0.7777076715065594}, {
               2.373823780867413, 0.}}, 0.026179141241514756`]}, 
             InsetBox["\<\"p4\"\>", {2.0598263749715606, 0.3888538357532797}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7452911576073804`, 1.6750941235230208`}, {
               2.3733353439911715`, 2.452367380208817}}, 
               0.026179141241514756`]}, 
             InsetBox["\<\"p3\"\>", {2.059313250799276, 2.063730751865919}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8084150789021852, 1.2263526229832433`}, {
               1.7452911576073804`, 1.6750941235230208`}}, 
               0.026179141241514756`]}, 
             InsetBox["\<\"l1+p3\"\>", {1.2768531182547829, 1.450723373253132},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0., 1.8305971551056746`}, {0.8084150789021852, 
               1.2263526229832433`}}, 0.026179141241514756`]}, 
             InsetBox["\<\"p1\"\>", {0.4042075394510926, 1.528474889044459}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.0005864809052931186, 0.6209345098920819}, {
               0.8084150789021852, 1.2263526229832433`}}, 
               0.026179141241514756`]}, 
             InsetBox["\<\"p2\"\>", {0.40450077990373917, 0.9236435664376625},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.7458289690757078`, 0.7777076715065594}, 
             0.026179141241514756], 
            DiskBox[{1.7452911576073804`, 1.6750941235230208`}, 
             0.026179141241514756], 
            DiskBox[{0.8084150789021852, 1.2263526229832433`}, 
             0.026179141241514756], 
            DiskBox[{0., 1.8305971551056746`}, 0.026179141241514756], 
            DiskBox[{0.0005864809052931186, 0.6209345098920819}, 
             0.026179141241514756], 
            DiskBox[{2.3733353439911715`, 2.452367380208817}, 
             0.026179141241514756], 
            DiskBox[{2.373823780867413, 0.}, 0.026179141241514756]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "22"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 2}, {3, 1}, {4, 3}, {5, 3}, {2, 
           6}, {1, 7}}, Null, {1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-3, 3, 1] -> "p2", DirectedEdge[1, -2, 1] -> "p3", 
             DirectedEdge[3, 1, 1] -> "l1+p3", DirectedEdge[3, 2, 1] -> 
             "-l1+p4", DirectedEdge[2, 1, 1] -> "-l1", DirectedEdge[2, -4, 1] -> 
             "p4", DirectedEdge[-1, 3, 1] -> "p1"}, 
           EdgeStyle -> {DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7447061821503707`, 0.7779169431992008}, {
               1.7450410508750922`, 1.6757232841145506`}}, 
               0.026184881045267935`]}, 
             InsetBox["\<\"-l1\"\>", {1.7448736165127314, 1.2268201136568757},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{1.7447061821503707`, 0.7779169431992008}, {
               2.3734689782280123`, 0.}}, 0.026184881045267935`]}, 
             InsetBox["\<\"p4\"\>", {2.0590875801891917, 0.3889584715996004}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7450410508750922`, 1.6757232841145506`}, {
               2.374240691648629, 2.4531161693687693`}}, 
               0.026184881045267935`]}, 
             InsetBox["\<\"p3\"\>", {2.059640871261861, 2.0644197267416597}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{0.8083806287066793, 1.227117906072244}, {
               1.7447061821503707`, 0.7779169431992008}}, 
               0.026184881045267935`]}, 
             InsetBox["\<\"-l1+p4\"\>", {1.276543405428525, 1.0025174246357222},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{0.8083806287066793, 1.227117906072244}, {
               1.7450410508750922`, 1.6757232841145506`}}, 
               0.026184881045267935`]}, 
             InsetBox["\<\"l1+p3\"\>", {1.2767108397908857, 1.4514205950933974},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.0006614959501123341, 0.6225556866144221}, {
               0.8083806287066793, 1.227117906072244}}, 
               0.026184881045267935`]}, 
             InsetBox["\<\"p1\"\>", {0.4045210623283958, 0.924836796343333}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0., 1.8310739124220885`}, {0.8083806287066793, 
               1.227117906072244}}, 0.026184881045267935`]}, 
             InsetBox["\<\"p2\"\>", {0.40419031435333963, 1.5290959092471663},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.7447061821503707`, 0.7779169431992008}, 
             0.026184881045267935], 
            DiskBox[{1.7450410508750922`, 1.6757232841145506`}, 
             0.026184881045267935], 
            DiskBox[{0.8083806287066793, 1.227117906072244}, 
             0.026184881045267935], 
            DiskBox[{0.0006614959501123341, 0.6225556866144221}, 
             0.026184881045267935], 
            DiskBox[{0., 1.8310739124220885`}, 0.026184881045267935], 
            DiskBox[{2.374240691648629, 2.4531161693687693`}, 
             0.026184881045267935], 
            DiskBox[{2.3734689782280123`, 0.}, 0.026184881045267935]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "23"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{3, 1, 4, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {3, 1}, {1, 3}, {5, 2}, {6, 
           2}, {4, 7}, {4, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 4, 1] -> "l1", DirectedEdge[-3, 1, 1] -> "p2", 
             DirectedEdge[3, 1, 1] -> "-p1-p2", DirectedEdge[4, 3, 1] -> 
             "l1-p1-p2", DirectedEdge[-1, 1, 1] -> "p1", 
             DirectedEdge[2, -2, 1] -> "p3", DirectedEdge[2, -4, 1] -> "p4", 
             DirectedEdge[4, 2, 1] -> "p3+p4"}, 
           EdgeStyle -> {DirectedEdge[3, 4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[4, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{2.910724992129709, 0.544704436423975}, {
               4.024526572517499, 0.5447913630832412}}, 0.04128648720387913]},
              InsetBox["\<\"-p1-p2\"\>", {3.467625782323604, 0.5447478997536082},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{2.910724992129709, 0.544704436423975}, {
                2.3487459657813115`, 0.35985991826435854`}, {
                1.7867550586026952`, 0.5446683114658175}}], 
               0.04128648720387913]}, 
             InsetBox["\<\"l1\"\>", {2.348742554113273, 0.4660084785980053}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{1.7867550586026952`, 0.5446683114658175}, {
                2.3487340849510923`, 0.7295128296254338}, {2.910724992129709, 
                0.544704436423975}}], 0.04128648720387913]}, 
             InsetBox["\<\"l1-p1-p2\"\>", {2.3487374966191314, 0.6233642692917873},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7867550586026952`, 0.5446683114658175}, {
               0.6716384301692135, 0.5447457692472308}}, 
               0.04128648720387913]}, 
             InsetBox["\<\"p3+p4\"\>", {1.2291967443859544, 0.5447070403565242},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6716384301692135, 0.5447457692472308}, {
               0.0005461614732524822, 1.089932156192363}}, 
               0.04128648720387913]}, 
             InsetBox["\<\"p3\"\>", {0.336092295821233, 0.8173389627197969}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6716384301692135, 0.5447457692472308}, {0., 0.}}, 
               0.04128648720387913]}, 
             InsetBox["\<\"p4\"\>", {0.33581921508460677, 0.2723728846236154},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{4.696681394905637, 1.0880199495168166`}, {
               4.024526572517499, 0.5447913630832412}}, 0.04128648720387913]},
              InsetBox["\<\"p1\"\>", {4.360603983711568, 0.8164056563000288}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{4.696977050596828, 0.00181263978801105}, {
               4.024526572517499, 0.5447913630832412}}, 0.04128648720387913]},
              InsetBox["\<\"p2\"\>", {4.360751811557163, 0.2733020014356261}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{2.910724992129709, 0.544704436423975}, 
             0.04128648720387913], 
            DiskBox[{4.024526572517499, 0.5447913630832412}, 
             0.04128648720387913], 
            DiskBox[{1.7867550586026952`, 0.5446683114658175}, 
             0.04128648720387913], 
            DiskBox[{0.6716384301692135, 0.5447457692472308}, 
             0.04128648720387913], 
            DiskBox[{4.696681394905637, 1.0880199495168166`}, 
             0.04128648720387913], 
            DiskBox[{4.696977050596828, 0.00181263978801105}, 
             0.04128648720387913], 
            DiskBox[{0.0005461614732524822, 1.089932156192363}, 
             0.04128648720387913], DiskBox[{0., 0.}, 0.04128648720387913]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "24"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{3, 1, 4, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {3, 1}, {3, 1}, {5, 2}, {6, 
           2}, {4, 7}, {4, 8}}, Null, {1, 1, 1, 2, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-3, 1, 1] -> "p2", DirectedEdge[4, 3, 2] -> "-l1", 
             DirectedEdge[3, 1, 1] -> "-p1-p2", DirectedEdge[4, 3, 1] -> 
             "l1-p1-p2", DirectedEdge[-1, 1, 1] -> "p1", 
             DirectedEdge[2, -2, 1] -> "p3", DirectedEdge[2, -4, 1] -> "p4", 
             DirectedEdge[4, 2, 1] -> "p3+p4"}, 
           EdgeStyle -> {DirectedEdge[4, 3, 2] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[4, 3, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{2.9670636445254837`, 0.5552474846284956}, {
               4.102423455335248, 0.5553360938001439}}, 
               0.041821076068823515`]}, 
             InsetBox["\<\"-p1-p2\"\>", {3.534743549930366, 0.5552917892143198},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{1.8213386666162288`, 0.5552106604522856}, {
                2.394195100175807, 0.7436329439741486}, {2.9670636445254837`, 
                0.5552474846284956}}], 0.041821076068823515`]}, 
             InsetBox["\<\"l1-p1-p2\"\>", {2.3941985778785217, 0.6354298209940386},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{1.8213386666162288`, 0.5552106604522856}, {
                2.394207210965915, 0.3668252011066345}, {2.9670636445254837`, 
                0.5552474846284956}}], 0.041821076068823515`]}, 
             InsetBox["\<\"-l1\"\>", {2.3942037332631907, 0.4750283240867428},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.8213386666162288`, 0.5552106604522856}, {
               0.6846383542964536, 0.5552896174708423}}, 
               0.041821076068823515`]}, 
             InsetBox["\<\"p3+p4\"\>", {1.2529885104563412, 0.5552501389615639},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6846383542964536, 0.5552896174708423}, {
               0.0005567327231910113, 1.1110283810328174`}}, 
               0.041821076068823515`]}, 
             InsetBox["\<\"p3\"\>", {0.3425975435098223, 0.8331589992518298}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6846383542964536, 0.5552896174708423}, {0., 0.}}, 
               0.041821076068823515`]}, 
             InsetBox["\<\"p4\"\>", {0.3423191771482268, 0.27764480873542113},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{4.787588196900588, 1.1090791625655374`}, {
               4.102423455335248, 0.5553360938001439}}, 
               0.041821076068823515`]}, 
             InsetBox["\<\"p1\"\>", {4.445005826117917, 0.8322076281828407}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{4.787889575167171, 0.0018477244089255551`}, {
               4.102423455335248, 0.5553360938001439}}, 
               0.041821076068823515`]}, 
             InsetBox["\<\"p2\"\>", {4.44515651525121, 0.27859190910453474}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{2.9670636445254837`, 0.5552474846284956}, 
             0.041821076068823515], 
            DiskBox[{4.102423455335248, 0.5553360938001439}, 
             0.041821076068823515], 
            DiskBox[{1.8213386666162288`, 0.5552106604522856}, 
             0.041821076068823515], 
            DiskBox[{0.6846383542964536, 0.5552896174708423}, 
             0.041821076068823515], 
            DiskBox[{4.787588196900588, 1.1090791625655374`}, 
             0.041821076068823515], 
            DiskBox[{4.787889575167171, 0.0018477244089255551`}, 
             0.041821076068823515], 
            DiskBox[{0.0005567327231910113, 1.1110283810328174`}, 
             0.041821076068823515], DiskBox[{0., 0.}, 0.041821076068823515]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "25"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{3, 1, 4, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {3, 1}, {1, 3}, {5, 2}, {6, 
           2}, {4, 7}, {4, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 4, 1] -> "l1", DirectedEdge[-3, 1, 1] -> "p2", 
             DirectedEdge[3, 1, 1] -> "-p1-p2", DirectedEdge[4, 3, 1] -> 
             "l1-p1-p2", DirectedEdge[-1, 1, 1] -> "p1", 
             DirectedEdge[2, -2, 1] -> "p3", DirectedEdge[2, -4, 1] -> "p4", 
             DirectedEdge[4, 2, 1] -> "p3+p4"}, 
           EdgeStyle -> {DirectedEdge[3, 4, 1] -> {
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[4, 3, 1] -> {
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}]}, DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{2.910724992129709, 0.544704436423975}, {
               4.024526572517499, 0.5447913630832412}}, 0.04128648720387913]},
              InsetBox["\<\"-p1-p2\"\>", {3.467625782323604, 0.5447478997536082},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], Dashing[{Small, Small}], 
              ArrowBox[
               BezierCurveBox[{{2.910724992129709, 0.544704436423975}, {
                2.3487459657813115`, 0.35985991826435854`}, {
                1.7867550586026952`, 0.5446683114658175}}], 
               0.04128648720387913]}, 
             InsetBox["\<\"l1\"\>", {2.348742554113273, 0.4660084785980053}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], Dashing[{Small, Small}], 
              ArrowBox[
               BezierCurveBox[{{1.7867550586026952`, 0.5446683114658175}, {
                2.3487340849510923`, 0.7295128296254338}, {2.910724992129709, 
                0.544704436423975}}], 0.04128648720387913]}, 
             InsetBox["\<\"l1-p1-p2\"\>", {2.3487374966191314, 0.6233642692917873},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7867550586026952`, 0.5446683114658175}, {
               0.6716384301692135, 0.5447457692472308}}, 
               0.04128648720387913]}, 
             InsetBox["\<\"p3+p4\"\>", {1.2291967443859544, 0.5447070403565242},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6716384301692135, 0.5447457692472308}, {
               0.0005461614732524822, 1.089932156192363}}, 
               0.04128648720387913]}, 
             InsetBox["\<\"p3\"\>", {0.336092295821233, 0.8173389627197969}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6716384301692135, 0.5447457692472308}, {0., 0.}}, 
               0.04128648720387913]}, 
             InsetBox["\<\"p4\"\>", {0.33581921508460677, 0.2723728846236154},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{4.696681394905637, 1.0880199495168166`}, {
               4.024526572517499, 0.5447913630832412}}, 0.04128648720387913]},
              InsetBox["\<\"p1\"\>", {4.360603983711568, 0.8164056563000288}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{4.696977050596828, 0.00181263978801105}, {
               4.024526572517499, 0.5447913630832412}}, 0.04128648720387913]},
              InsetBox["\<\"p2\"\>", {4.360751811557163, 0.2733020014356261}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{2.910724992129709, 0.544704436423975}, 
             0.04128648720387913], 
            DiskBox[{4.024526572517499, 0.5447913630832412}, 
             0.04128648720387913], 
            DiskBox[{1.7867550586026952`, 0.5446683114658175}, 
             0.04128648720387913], 
            DiskBox[{0.6716384301692135, 0.5447457692472308}, 
             0.04128648720387913], 
            DiskBox[{4.696681394905637, 1.0880199495168166`}, 
             0.04128648720387913], 
            DiskBox[{4.696977050596828, 0.00181263978801105}, 
             0.04128648720387913], 
            DiskBox[{0.0005461614732524822, 1.089932156192363}, 
             0.04128648720387913], DiskBox[{0., 0.}, 0.04128648720387913]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "26"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{3, 1, 4, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {3, 1}, {1, 3}, {5, 2}, {6, 
           4}, {2, 7}, {4, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 4, 1] -> "l1", DirectedEdge[-3, 2, 1] -> "p2", 
             DirectedEdge[1, -2, 1] -> "p3", DirectedEdge[3, 1, 1] -> 
             "-p1+p3", DirectedEdge[4, 3, 1] -> "l1-p1+p3", 
             DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[2, -4, 1] -> "p4", 
             DirectedEdge[4, 2, 1] -> "-p2+p4"}, 
           EdgeStyle -> {DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[4, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{2.9101236188999575`, 0.5446884138390162}, {
               4.024998668215614, 0.5447065919351503}}, 0.04128823083857991]},
              InsetBox["\<\"-p1+p3\"\>", {3.4675611435577856, 0.5446975028870833},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{2.9101236188999575`, 0.5446884138390162}, {
                2.348638511654729, 0.3600591327918136}, {1.787172861409884, 
                0.5447475749676421}}], 0.04128823083857991]}, 
             InsetBox["\<\"l1\"\>", {2.348644098875917, 0.46611144137902405}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{4.024998668215614, 0.5447065919351503}, {
               4.697272120834598, 0.}}, 0.04128823083857991]}, 
             InsetBox["\<\"p3\"\>", {4.361135394525106, 0.2723532959675751}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[
               BezierCurveBox[{{1.787172861409884, 0.5447475749676421}, {
                2.348657968655122, 0.7293768560148421}, {2.9101236188999575`, 
                0.5446884138390162}}], 0.04128823083857991]}, 
             InsetBox["\<\"l1-p1+p3\"\>", {2.348652381433925, 0.6233245474276345},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.787172861409884, 0.5447475749676421}, {
               0.6724789132656019, 0.5447589757912774}}, 
               0.04128823083857991]}, 
             InsetBox["\<\"-p2+p4\"\>", {1.229825887337743, 0.5447532753794597},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6724789132656019, 0.5447589757912774}, {0., 
               0.001219203453906581}}, 0.04128823083857991]}, 
             InsetBox["\<\"p4\"\>", {0.33623945663280097, 0.272989089622592}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{4.69700204895317, 1.0896476979609502`}, {
               4.024998668215614, 0.5447065919351503}}, 0.04128823083857991]},
              InsetBox["\<\"p1\"\>", {4.361000358584391, 0.8171771449480503}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.000069208247839736, 1.0883303215902105`}, {
               0.6724789132656019, 0.5447589757912774}}, 
               0.04128823083857991]}, 
             InsetBox["\<\"p2\"\>", {0.33627406075672084, 0.816544648690744}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{2.9101236188999575`, 0.5446884138390162}, 
             0.04128823083857991], 
            DiskBox[{4.024998668215614, 0.5447065919351503}, 
             0.04128823083857991], 
            DiskBox[{1.787172861409884, 0.5447475749676421}, 
             0.04128823083857991], 
            DiskBox[{0.6724789132656019, 0.5447589757912774}, 
             0.04128823083857991], 
            DiskBox[{4.69700204895317, 1.0896476979609502`}, 
             0.04128823083857991], 
            DiskBox[{0.000069208247839736, 1.0883303215902105`}, 
             0.04128823083857991], 
            DiskBox[{4.697272120834598, 0.}, 0.04128823083857991], 
            DiskBox[{0., 0.001219203453906581}, 0.04128823083857991]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "27"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{3, 1, 4, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {3, 1}, {3, 1}, {5, 2}, {6, 
           4}, {2, 7}, {4, 8}}, Null, {1, 1, 1, 2, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-3, 2, 1] -> "p2", DirectedEdge[1, -2, 1] -> "p3", 
             DirectedEdge[4, 3, 2] -> "-l1", DirectedEdge[3, 1, 1] -> 
             "-p1+p3", DirectedEdge[4, 3, 1] -> "l1-p1+p3", 
             DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[2, -4, 1] -> "p4", 
             DirectedEdge[4, 2, 1] -> "-p2+p4"}, 
           EdgeStyle -> {DirectedEdge[4, 3, 2] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[4, 3, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{2.9659465666861076`, 0.5551368060268883}, {
               4.10220751564597, 0.5551553328212373}}, 0.04181807520458573]}, 
             InsetBox["\<\"-p1+p3\"\>", {3.534077041166039, 0.5551460694240629},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{4.10220751564597, 0.5551553328212373}, {
               4.787376738602625, 0.}}, 0.04181807520458573]}, 
             InsetBox["\<\"p3\"\>", {4.444792127124298, 0.27757766641061865}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{1.821454998663222, 0.5551971020037292}, {
                2.3937106977901483`, 0.7433680026057669}, {
                2.9659465666861076`, 0.5551368060268883}}], 
               0.04181807520458573]}, 
             InsetBox["\<\"l1-p1+p3\"\>", {2.393705003393044, 0.6352813637769108},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[
               BezierCurveBox[{{1.821454998663222, 0.5551971020037292}, {
                2.393690867559189, 0.3669659054248535}, {2.9659465666861076`, 
                0.5551368060268883}}], 0.04181807520458573]}, 
             InsetBox["\<\"-l1\"\>", {2.393696561956286, 0.4750525442537067}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.821454998663222, 0.5551971020037292}, {
               0.6853786248169289, 0.5552087215217106}}, 
               0.04181807520458573]}, 
             InsetBox["\<\"-p2+p4\"\>", {1.2534168117400755, 0.55520291176272},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6853786248169289, 0.5552087215217106}, {0., 
               0.0012425906152992994`}}, 0.04181807520458573]}, 
             InsetBox["\<\"p4\"\>", {0.34268931240846445, 0.27822565606850497},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{4.787101486113597, 1.1105496782594937`}, {
               4.10220751564597, 0.5551553328212373}}, 0.04181807520458573]}, 
             InsetBox["\<\"p1\"\>", {4.444654500879784, 0.8328525055403655}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.00007053582319827001, 1.1092070315422018`}, {
               0.6853786248169289, 0.5552087215217106}}, 
               0.04181807520458573]}, 
             InsetBox["\<\"p2\"\>", {0.3427245803200636, 0.8322078765319563}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{2.9659465666861076`, 0.5551368060268883}, 
             0.04181807520458573], 
            DiskBox[{4.10220751564597, 0.5551553328212373}, 
             0.04181807520458573], 
            DiskBox[{1.821454998663222, 0.5551971020037292}, 
             0.04181807520458573], 
            DiskBox[{0.6853786248169289, 0.5552087215217106}, 
             0.04181807520458573], 
            DiskBox[{4.787101486113597, 1.1105496782594937`}, 
             0.04181807520458573], 
            DiskBox[{0.00007053582319827001, 1.1092070315422018`}, 
             0.04181807520458573], 
            DiskBox[{4.787376738602625, 0.}, 0.04181807520458573], 
            DiskBox[{0., 0.0012425906152992994`}, 0.04181807520458573]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "28"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{3, 1, 4, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {3, 1}, {1, 3}, {5, 2}, {6, 
           4}, {2, 7}, {4, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 4, 1] -> "l1", DirectedEdge[-3, 2, 1] -> "p2", 
             DirectedEdge[1, -2, 1] -> "p3", DirectedEdge[3, 1, 1] -> 
             "-p1+p3", DirectedEdge[4, 3, 1] -> "l1-p1+p3", 
             DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[2, -4, 1] -> "p4", 
             DirectedEdge[4, 2, 1] -> "-p2+p4"}, 
           EdgeStyle -> {DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 4, 1] -> {
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}]}, DirectedEdge[4, 3, 1] -> {
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}]}, DirectedEdge[2, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{2.9101236188999575`, 0.5446884138390162}, {
               4.024998668215614, 0.5447065919351503}}, 0.04128823083857991]},
              InsetBox["\<\"-p1+p3\"\>", {3.4675611435577856, 0.5446975028870833},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], Dashing[{Small, Small}], 
              ArrowBox[
               BezierCurveBox[{{2.9101236188999575`, 0.5446884138390162}, {
                2.348638511654729, 0.3600591327918136}, {1.787172861409884, 
                0.5447475749676421}}], 0.04128823083857991]}, 
             InsetBox["\<\"l1\"\>", {2.348644098875917, 0.46611144137902405}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{4.024998668215614, 0.5447065919351503}, {
               4.697272120834598, 0.}}, 0.04128823083857991]}, 
             InsetBox["\<\"p3\"\>", {4.361135394525106, 0.2723532959675751}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], Dashing[{Small, Small}], 
              ArrowBox[
               BezierCurveBox[{{1.787172861409884, 0.5447475749676421}, {
                2.348657968655122, 0.7293768560148421}, {2.9101236188999575`, 
                0.5446884138390162}}], 0.04128823083857991]}, 
             InsetBox["\<\"l1-p1+p3\"\>", {2.348652381433925, 0.6233245474276345},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.787172861409884, 0.5447475749676421}, {
               0.6724789132656019, 0.5447589757912774}}, 
               0.04128823083857991]}, 
             InsetBox["\<\"-p2+p4\"\>", {1.229825887337743, 0.5447532753794597},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6724789132656019, 0.5447589757912774}, {0., 
               0.001219203453906581}}, 0.04128823083857991]}, 
             InsetBox["\<\"p4\"\>", {0.33623945663280097, 0.272989089622592}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{4.69700204895317, 1.0896476979609502`}, {
               4.024998668215614, 0.5447065919351503}}, 0.04128823083857991]},
              InsetBox["\<\"p1\"\>", {4.361000358584391, 0.8171771449480503}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.000069208247839736, 1.0883303215902105`}, {
               0.6724789132656019, 0.5447589757912774}}, 
               0.04128823083857991]}, 
             InsetBox["\<\"p2\"\>", {0.33627406075672084, 0.816544648690744}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{2.9101236188999575`, 0.5446884138390162}, 
             0.04128823083857991], 
            DiskBox[{4.024998668215614, 0.5447065919351503}, 
             0.04128823083857991], 
            DiskBox[{1.787172861409884, 0.5447475749676421}, 
             0.04128823083857991], 
            DiskBox[{0.6724789132656019, 0.5447589757912774}, 
             0.04128823083857991], 
            DiskBox[{4.69700204895317, 1.0896476979609502`}, 
             0.04128823083857991], 
            DiskBox[{0.000069208247839736, 1.0883303215902105`}, 
             0.04128823083857991], 
            DiskBox[{4.697272120834598, 0.}, 0.04128823083857991], 
            DiskBox[{0., 0.001219203453906581}, 0.04128823083857991]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "29"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{4, 1, 3, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {1, 4}, {1, 3}, {5, 2}, {6, 
           2}, {4, 7}, {3, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[4, 1, 1] -> "-p1-p2", DirectedEdge[-3, 1, 1] -> "p2",
              DirectedEdge[3, 2, 1] -> "-l1", DirectedEdge[4, 3, 1] -> 
             "-l1+p4", DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[2, -2, 1] -> 
             "p3", DirectedEdge[3, -4, 1] -> "p4", DirectedEdge[4, 2, 1] -> 
             "l1+p3"}, EdgeStyle -> {DirectedEdge[4, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[4, 3, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{2.0222894259544875`, 1.1240112432227596`}, {
               0.7576332366189025, 1.1241169386260064`}}, 
               0.03440665911950057]}, 
             InsetBox["\<\"-p1-p2\"\>", {1.389961331286695, 1.1240640909243829},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{2.0222894259544875`, 1.1240112432227596`}, {
               2.945098937641653, 0.7042213482031326}}, 0.03440665911950057]},
              InsetBox["\<\"-l1+p4\"\>", {2.48369418179807, 0.9141162957129461},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{2.0222894259544875`, 1.1240112432227596`}, {
               2.945161852718569, 1.5444107581245476`}}, 
               0.03440665911950057]}, 
             InsetBox["\<\"l1+p3\"\>", {2.4837256393365283, 1.3342110006736536},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.945098937641653, 0.7042213482031326}, {
               2.945161852718569, 1.5444107581245476`}}, 
               0.03440665911950057]}, 
             InsetBox["\<\"-l1\"\>", {2.9451303951801107, 1.12431605316384}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.945098937641653, 0.7042213482031326}, {
               3.601783070408696, 0.}}, 0.03440665911950057]}, 
             InsetBox["\<\"p4\"\>", {3.2734410040251745, 0.3521106741015663}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.945161852718569, 1.5444107581245476`}, {
               3.602034743226283, 2.247783835259423}}, 0.03440665911950057]}, 
             InsetBox["\<\"p3\"\>", {3.273598297972426, 1.8960972966919853}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.0013189731440479413`, 0.5586316653462253}, {
               0.7576332366189025, 1.1241169386260064`}}, 
               0.03440665911950057]}, 
             InsetBox["\<\"p1\"\>", {0.3794761048814752, 0.8413743019861158}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0., 1.68920615812383}, {0.7576332366189025, 
               1.1241169386260064`}}, 0.03440665911950057]}, 
             InsetBox["\<\"p2\"\>", {0.37881661830945124, 1.406661548374918}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{2.0222894259544875`, 1.1240112432227596`}, 
             0.03440665911950057], 
            DiskBox[{0.7576332366189025, 1.1241169386260064`}, 
             0.03440665911950057], 
            DiskBox[{2.945098937641653, 0.7042213482031326}, 
             0.03440665911950057], 
            DiskBox[{2.945161852718569, 1.5444107581245476`}, 
             0.03440665911950057], 
            DiskBox[{0.0013189731440479413`, 0.5586316653462253}, 
             0.03440665911950057], 
            DiskBox[{0., 1.68920615812383}, 0.03440665911950057], 
            DiskBox[{3.602034743226283, 2.247783835259423}, 
             0.03440665911950057], 
            DiskBox[{3.601783070408696, 0.}, 0.03440665911950057]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "30"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{4, 1, 3, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {1, 4}, {3, 1}, {5, 2}, {6, 
           2}, {4, 7}, {3, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 4, 1] -> "l1-p4", DirectedEdge[4, 1, 1] -> 
             "-p1-p2", DirectedEdge[-3, 1, 1] -> "p2", DirectedEdge[3, 2, 1] -> 
             "-l1", DirectedEdge[-1, 1, 1] -> "p1", DirectedEdge[2, -2, 1] -> 
             "p3", DirectedEdge[3, -4, 1] -> "p4", DirectedEdge[4, 2, 1] -> 
             "l1+p3"}, EdgeStyle -> {DirectedEdge[4, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, 4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[4, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5810503216767613`, 1.122648310989754}, {
               2.8461421660263504`, 1.1225571174925792`}}, 
               0.03441853935324031]}, 
             InsetBox["\<\"-p1-p2\"\>", {2.2135962438515557, 1.1226027142411668},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.5810503216767613`, 1.122648310989754}, {
               0.6588710559720626, 1.542633833582011}}, 0.03441853935324031]},
              InsetBox["\<\"l1+p3\"\>", {1.119960688824412, 1.3326410722858824},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.657306793524503, 0.702836052994313}, {
               1.5810503216767613`, 1.122648310989754}}, 
               0.03441853935324031]}, 
             InsetBox["\<\"l1-p4\"\>", {1.1191785576006321, 0.9127421819920335},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{0.657306793524503, 0.702836052994313}, {
               0.6588710559720626, 1.542633833582011}}, 0.03441853935324031]},
              InsetBox["\<\"-l1\"\>", {0.6580889247482828, 1.122734943288162},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.657306793524503, 0.702836052994313}, {0., 0.}}, 
               0.03441853935324031]}, 
             InsetBox["\<\"p4\"\>", {0.3286533967622515, 0.3514180264971565}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6588710559720626, 1.542633833582011}, {
               0.0031877268513531565`, 2.246986706511954}}, 
               0.03441853935324031]}, 
             InsetBox["\<\"p3\"\>", {0.3310293914117079, 1.8948102700469824}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{3.603197949443226, 1.6875242633416492`}, {
               2.8461421660263504`, 1.1225571174925792`}}, 
               0.03441853935324031]}, 
             InsetBox["\<\"p1\"\>", {3.224670057734788, 1.4050406904171142}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.603813161804595, 0.5573297526501098}, {
               2.8461421660263504`, 1.1225571174925792`}}, 
               0.03441853935324031]}, 
             InsetBox["\<\"p2\"\>", {3.224977663915473, 0.8399434350713445}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.5810503216767613`, 1.122648310989754}, 
             0.03441853935324031], 
            DiskBox[{2.8461421660263504`, 1.1225571174925792`}, 
             0.03441853935324031], 
            DiskBox[{0.657306793524503, 0.702836052994313}, 
             0.03441853935324031], 
            DiskBox[{0.6588710559720626, 1.542633833582011}, 
             0.03441853935324031], 
            DiskBox[{3.603197949443226, 1.6875242633416492`}, 
             0.03441853935324031], 
            DiskBox[{3.603813161804595, 0.5573297526501098}, 
             0.03441853935324031], 
            DiskBox[{0.0031877268513531565`, 2.246986706511954}, 
             0.03441853935324031], DiskBox[{0., 0.}, 0.03441853935324031]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "31"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{4, 1, 3, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {1, 4}, {1, 3}, {5, 2}, {6, 
           4}, {2, 7}, {3, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[4, 1, 1] -> "-p1+p3", DirectedEdge[-3, 2, 1] -> "p2",
              DirectedEdge[1, -2, 1] -> "p3", DirectedEdge[3, 2, 1] -> "-l1", 
             DirectedEdge[4, 3, 1] -> "-l1+p4", DirectedEdge[-1, 1, 1] -> 
             "p1", DirectedEdge[3, -4, 1] -> "p4", DirectedEdge[4, 2, 1] -> 
             "l1-p2"}, EdgeStyle -> {DirectedEdge[4, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[4, 3, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5792148815452114`, 1.1251251142054737`}, {
               2.843773560525944, 1.1252380588610855`}}, 
               0.03440481718038034]}, 
             InsetBox["\<\"-p1+p3\"\>", {2.2114942210355775, 1.1251815865332797},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5792148815452114`, 1.1251251142054737`}, {
               0.6567346368839346, 0.7046473110175069}}, 
               0.03440481718038034]}, 
             InsetBox["\<\"-l1+p4\"\>", {1.117974759214573, 0.9148862126114903},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5792148815452114`, 1.1251251142054737`}, {
               0.6561972897386452, 1.5448883888300688`}}, 
               0.03440481718038034]}, 
             InsetBox["\<\"l1-p2\"\>", {1.1177060856419283, 1.3350067515177713},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.843773560525944, 1.1252380588610855`}, {
               3.6001980281575072`, 0.5598679880113675}}, 
               0.03440481718038034]}, 
             InsetBox["\<\"p3\"\>", {3.221985794341726, 0.8425530234362265}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6567346368839346, 0.7046473110175069}, {
               0.6561972897386452, 1.5448883888300688`}}, 
               0.03440481718038034]}, 
             InsetBox["\<\"-l1\"\>", {0.6564659633112899, 1.1247678499237879},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6567346368839346, 0.7046473110175069}, {
               0.00048177213455469214`, 0.}}, 0.03440481718038034]}, 
             InsetBox["\<\"p4\"\>", {0.32860820450924466, 0.35232365550875344},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{3.6017590457977606`, 1.6893525166728325`}, {
               2.843773560525944, 1.1252380588610855`}}, 
               0.03440481718038034]}, 
             InsetBox["\<\"p1\"\>", {3.222766303161852, 1.4072952877669591}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0., 2.2495677220623977`}, {0.6561972897386452, 
               1.5448883888300688`}}, 0.03440481718038034]}, 
             InsetBox["\<\"p2\"\>", {0.3280986448693226, 1.8972280554462333}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.5792148815452114`, 1.1251251142054737`}, 
             0.03440481718038034], 
            DiskBox[{2.843773560525944, 1.1252380588610855`}, 
             0.03440481718038034], 
            DiskBox[{0.6567346368839346, 0.7046473110175069}, 
             0.03440481718038034], 
            DiskBox[{0.6561972897386452, 1.5448883888300688`}, 
             0.03440481718038034], 
            DiskBox[{3.6017590457977606`, 1.6893525166728325`}, 
             0.03440481718038034], 
            DiskBox[{0., 2.2495677220623977`}, 0.03440481718038034], 
            DiskBox[{3.6001980281575072`, 0.5598679880113675}, 
             0.03440481718038034], 
            DiskBox[{0.00048177213455469214`, 0.}, 0.03440481718038034]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "32"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{4, 1, 3, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {1, 4}, {3, 1}, {5, 2}, {6, 
           4}, {2, 7}, {3, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 4, 1] -> "l1-p4", DirectedEdge[4, 1, 1] -> 
             "-p1+p3", DirectedEdge[-3, 2, 1] -> "p2", DirectedEdge[1, -2, 1] -> 
             "p3", DirectedEdge[3, 2, 1] -> "-l1", DirectedEdge[-1, 1, 1] -> 
             "p1", DirectedEdge[3, -4, 1] -> "p4", DirectedEdge[4, 2, 1] -> 
             "l1-p2"}, EdgeStyle -> {DirectedEdge[4, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5802360777161244`, 1.1249930604812548`}, {
               2.8461333850766284`, 1.1250893321206015`}}, 
               0.034415538053853056`]}, 
             InsetBox["\<\"-p1+p3\"\>", {2.2131847313963764, 1.1250411963009281},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.5802360777161244`, 1.1249930604812548`}, {
               0.6573191012736457, 1.5447058613038047`}}, 
               0.034415538053853056`]}, 
             InsetBox["\<\"l1-p2\"\>", {1.118777589494885, 1.3348494608925296},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.8461333850766284`, 1.1250893321206015`}, {
               3.602575754754926, 0.5590202768184481}}, 
               0.034415538053853056`]}, 
             InsetBox["\<\"p3\"\>", {3.224354569915777, 0.8420548044695249}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6581891752848673, 0.7049058909900996}, {
               1.5802360777161244`, 1.1249930604812548`}}, 
               0.034415538053853056`]}, 
             InsetBox["\<\"l1-p4\"\>", {1.1192126265004958, 0.9149494757356772},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{0.6581891752848673, 0.7049058909900996}, {
               0.6573191012736457, 1.5447058613038047`}}, 
               0.034415538053853056`]}, 
             InsetBox["\<\"-l1\"\>", {0.6577541382792564, 1.1248058761469522},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.6581891752848673, 0.7049058909900996}, {
               0.003216826164293085, 0.}}, 0.034415538053853056`]}, 
             InsetBox["\<\"p4\"\>", {0.3307030007245802, 0.3524529454950498}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{3.6033638460145214`, 1.6905107491009936`}, {
               2.8461333850766284`, 1.1250893321206015`}}, 
               0.034415538053853056`]}, 
             InsetBox["\<\"p1\"\>", {3.224748615545575, 1.4078000406107976}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0., 2.2475378981486873`}, {0.6573191012736457, 
               1.5447058613038047`}}, 0.034415538053853056`]}, 
             InsetBox["\<\"p2\"\>", {0.32865955063682284, 1.896121879726246}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.5802360777161244`, 1.1249930604812548`}, 
             0.034415538053853056], 
            DiskBox[{2.8461333850766284`, 1.1250893321206015`}, 
             0.034415538053853056], 
            DiskBox[{0.6581891752848673, 0.7049058909900996}, 
             0.034415538053853056], 
            DiskBox[{0.6573191012736457, 1.5447058613038047`}, 
             0.034415538053853056], 
            DiskBox[{3.6033638460145214`, 1.6905107491009936`}, 
             0.034415538053853056], 
            DiskBox[{0., 2.2475378981486873`}, 0.034415538053853056], 
            DiskBox[{3.602575754754926, 0.5590202768184481}, 
             0.034415538053853056], 
            DiskBox[{0.003216826164293085, 0.}, 0.034415538053853056]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "33"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{4, 1, 2, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {1, 3}, {1, 4}, {5, 3}, {6, 
           2}, {4, 7}, {2, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[4, 1, 1] -> "-p2+p4", DirectedEdge[-1, 2, 1] -> "p1",
              DirectedEdge[-3, 1, 1] -> "p2", DirectedEdge[3, -2, 1] -> "p3", 
             DirectedEdge[1, -4, 1] -> "p4", DirectedEdge[4, 3, 1] -> 
             "-l1+p3", DirectedEdge[2, 3, 1] -> "l1", DirectedEdge[4, 2, 1] -> 
             "l1-p1"}, EdgeStyle -> {DirectedEdge[4, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[4, 3, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5805141586522107`, 1.12447480122365}, {
               2.845572627171596, 1.125138488578364}}, 0.03441267616216612]}, 
             InsetBox["\<\"-p2+p4\"\>", {2.2130433929119033, 1.124806644901007},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5805141586522107`, 1.12447480122365}, {
               0.6571494411466566, 1.5447423583496533`}}, 
               0.03441267616216612]}, 
             InsetBox["\<\"l1-p1\"\>", {1.1188317998994337, 1.3346085797866518},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5805141586522107`, 1.12447480122365}, {
               0.6582488412089382, 0.7047310507592579}}, 
               0.03441267616216612]}, 
             InsetBox["\<\"-l1+p3\"\>", {1.1193814999305745, 0.914602925991454},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.845572627171596, 1.125138488578364}, {
               3.6029354222782253`, 1.6897630794475589`}}, 
               0.03441267616216612]}, 
             InsetBox["\<\"p4\"\>", {3.2242540247249107, 1.4074507840129615}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6571494411466566, 1.5447423583496533`}, {
               0.6582488412089382, 0.7047310507592579}}, 
               0.03441267616216612]}, 
             InsetBox["\<\"l1\"\>", {0.6576991411777975, 1.1247367045544556}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6582488412089382, 0.7047310507592579}, {
               0.0025229428033362034`, 0.}}, 0.03441267616216612]}, 
             InsetBox["\<\"p3\"\>", {0.3303858920061372, 0.35236552537962895},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0., 2.2484785602098847`}, {0.6571494411466566, 
               1.5447423583496533`}}, 0.03441267616216612]}, 
             InsetBox["\<\"p1\"\>", {0.3285747205733283, 1.896610459279769}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.602329730394328, 0.5601357545931767}, {
               2.845572627171596, 1.125138488578364}}, 0.03441267616216612]}, 
             InsetBox["\<\"p2\"\>", {3.2239511787829622, 0.8426371215857703}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.5805141586522107`, 1.12447480122365}, 
             0.03441267616216612], 
            DiskBox[{2.845572627171596, 1.125138488578364}, 
             0.03441267616216612], 
            DiskBox[{0.6571494411466566, 1.5447423583496533`}, 
             0.03441267616216612], 
            DiskBox[{0.6582488412089382, 0.7047310507592579}, 
             0.03441267616216612], 
            DiskBox[{0., 2.2484785602098847`}, 0.03441267616216612], 
            DiskBox[{3.602329730394328, 0.5601357545931767}, 
             0.03441267616216612], 
            DiskBox[{0.0025229428033362034`, 0.}, 0.03441267616216612], 
            DiskBox[{3.6029354222782253`, 1.6897630794475589`}, 
             0.03441267616216612]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "34"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{4, 1, 3, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {4, 1}, {1, 3}, {5, 4}, {6, 
           2}, {3, 7}, {2, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[4, 1, 1] -> "-p2+p4", DirectedEdge[-1, 2, 1] -> "p1",
              DirectedEdge[2, 4, 1] -> "-l1+p1", DirectedEdge[-3, 1, 1] -> 
             "p2", DirectedEdge[3, 2, 1] -> "-l1", DirectedEdge[3, -2, 1] -> 
             "p3", DirectedEdge[1, -4, 1] -> "p4", DirectedEdge[4, 3, 1] -> 
             "-l1+p3"}, EdgeStyle -> {DirectedEdge[4, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[2, 4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[4, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[1, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5802736150312364`, 1.1233156392706725`}, {
               2.845595154306287, 1.1234997899908785`}}, 
               0.03441200829872866]}, 
             InsetBox["\<\"-p2+p4\"\>", {2.212934384668762, 1.1234077146307755},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.5802736150312364`, 1.1233156392706725`}, {
               0.6575672188649767, 1.5432378730819896`}}, 
               0.03441200829872866]}, 
             InsetBox["\<\"-l1+p3\"\>", {1.1189204169481066, 1.333276756176331},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.845595154306287, 1.1234997899908785`}, {
               3.6028354465129295`, 0.5581733709595139}}, 
               0.03441200829872866]}, 
             InsetBox["\<\"p4\"\>", {3.2242153004096084, 0.8408365804751963}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{0.6575672188649767, 1.5432378730819896`}, {
               0.6576735748454315, 0.7034097056104854}}, 
               0.03441200829872866]}, 
             InsetBox["\<\"-l1\"\>", {0.6576203968552041, 1.1233237893462376},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6575672188649767, 1.5432378730819896`}, {0., 
               2.2468193848382736`}}, 0.03441200829872866]}, 
             InsetBox["\<\"p3\"\>", {0.32878360943248836, 1.8950286289601315},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6576735748454315, 0.7034097056104854}, {
               1.5802736150312364`, 1.1233156392706725`}}, 
               0.03441200829872866]}, 
             InsetBox["\<\"-l1+p1\"\>", {1.118973594938334, 0.913362672440579},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.0012791437431165509`, 0.}, {0.6576735748454315, 
               0.7034097056104854}}, 0.03441200829872866]}, 
             InsetBox["\<\"p1\"\>", {0.32947635929427405, 0.3517048528052427},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{3.601878632296854, 1.6895249038136821`}, {
               2.845595154306287, 1.1234997899908785`}}, 
               0.03441200829872866]}, 
             InsetBox["\<\"p2\"\>", {3.2237368933015706, 1.4065123469022804}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.5802736150312364`, 1.1233156392706725`}, 
             0.03441200829872866], 
            DiskBox[{2.845595154306287, 1.1234997899908785`}, 
             0.03441200829872866], 
            DiskBox[{0.6575672188649767, 1.5432378730819896`}, 
             0.03441200829872866], 
            DiskBox[{0.6576735748454315, 0.7034097056104854}, 
             0.03441200829872866], 
            DiskBox[{0.0012791437431165509`, 0.}, 0.03441200829872866], 
            DiskBox[{3.601878632296854, 1.6895249038136821`}, 
             0.03441200829872866], 
            DiskBox[{0., 2.2468193848382736`}, 0.03441200829872866], 
            DiskBox[{3.6028354465129295`, 0.5581733709595139}, 
             0.03441200829872866]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "35"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{4, 1, 2, 
          3, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {1, 3}, {1, 4}, {5, 3}, {6, 
           4}, {2, 7}, {2, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[4, 1, 1] -> "p3+p4", DirectedEdge[-1, 2, 1] -> "p1", 
             DirectedEdge[1, -2, 1] -> "p3", DirectedEdge[1, -4, 1] -> "p4", 
             DirectedEdge[-3, 3, 1] -> "p2", DirectedEdge[4, 3, 1] -> 
             "-l1-p2", DirectedEdge[2, 3, 1] -> "l1", DirectedEdge[4, 2, 1] -> 
             "l1-p1"}, EdgeStyle -> {DirectedEdge[4, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[2, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[4, 3, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[1, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5812324436530807`, 1.1217612434274615`}, {
               2.846974169346053, 1.1218116038449366`}}, 
               0.034417500861656125`]}, 
             InsetBox["\<\"p3+p4\"\>", {2.2141033064995668, 1.1217864236361992},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5812324436530807`, 1.1217612434274615`}, {
               0.658398002006643, 1.541502910654516}}, 
               0.034417500861656125`]}, 
             InsetBox["\<\"l1-p1\"\>", {1.119815222829862, 1.3316320770409886},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5812324436530807`, 1.1217612434274615`}, {
               0.6587143992478334, 0.7020060260216021}}, 
               0.034417500861656125`]}, 
             InsetBox["\<\"-l1-p2\"\>", {1.119973421450457, 0.9118836347245318},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.846974169346053, 1.1218116038449366`}, {
               3.603637754933958, 0.5558368706782888}}, 
               0.034417500861656125`]}, 
             InsetBox["\<\"p3\"\>", {3.2253059621400055, 0.8388242372616127}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.846974169346053, 1.1218116038449366`}, {
               3.6036576896139367`, 1.6878218830810936`}}, 
               0.034417500861656125`]}, 
             InsetBox["\<\"p4\"\>", {3.225315929479995, 1.404816743463015}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.658398002006643, 1.541502910654516}, {
               0.6587143992478334, 0.7020060260216021}}, 
               0.034417500861656125`]}, 
             InsetBox["\<\"l1\"\>", {0.6585562006272382, 1.1217544683380591}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0., 2.243378365706089}, {0.658398002006643, 
               1.541502910654516}}, 0.034417500861656125`]}, 
             InsetBox["\<\"p1\"\>", {0.3291990010033215, 1.8924406381803025}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.00040748541870305743`, 0.}, {0.6587143992478334, 
               0.7020060260216021}}, 0.034417500861656125`]}, 
             InsetBox["\<\"p2\"\>", {0.3295609423332682, 0.35100301301080106},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.5812324436530807`, 1.1217612434274615`}, 
             0.034417500861656125], 
            DiskBox[{2.846974169346053, 1.1218116038449366`}, 
             0.034417500861656125], 
            DiskBox[{0.658398002006643, 1.541502910654516}, 
             0.034417500861656125], 
            DiskBox[{0.6587143992478334, 0.7020060260216021}, 
             0.034417500861656125], 
            DiskBox[{0., 2.243378365706089}, 0.034417500861656125], 
            DiskBox[{0.00040748541870305743`, 0.}, 0.034417500861656125], 
            DiskBox[{3.603637754933958, 0.5558368706782888}, 
             0.034417500861656125], 
            DiskBox[{3.6036576896139367`, 1.6878218830810936`}, 
             0.034417500861656125]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "36"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{4, 1, 3, 
          2, -1, -3, -2, -4}, {{{1, 2}, {3, 4}, {4, 1}, {1, 3}, {5, 4}, {6, 
           3}, {2, 7}, {2, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[4, 1, 1] -> "p3+p4", DirectedEdge[-1, 2, 1] -> "p1", 
             DirectedEdge[1, -2, 1] -> "p3", DirectedEdge[2, 4, 1] -> 
             "-l1+p1", DirectedEdge[3, 2, 1] -> "-l1", DirectedEdge[1, -4, 1] -> 
             "p4", DirectedEdge[-3, 3, 1] -> "p2", DirectedEdge[4, 3, 1] -> 
             "-l1-p2"}, EdgeStyle -> {DirectedEdge[4, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[2, 4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[1, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[1, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.5794211201162172`, 1.1249211491222355`}, {
               2.843764269190891, 1.1247645863417366`}}, 
               0.034398474185441424`]}, 
             InsetBox["\<\"p3+p4\"\>", {2.2115926946535542, 1.124842867731986},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.5794211201162172`, 1.1249211491222355`}, {
               0.6566068268938635, 1.5454976712867052`}}, 
               0.034398474185441424`]}, 
             InsetBox["\<\"-l1-p2\"\>", {1.1180139735050403, 1.3352094102044703},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.843764269190891, 1.1247645863417366`}, {
               3.6006751506253636`, 1.6894082303957352`}}, 
               0.034398474185441424`]}, 
             InsetBox["\<\"p3\"\>", {3.2222197099081273, 1.4070864083687358}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.843764269190891, 1.1247645863417366`}, {
               3.60080970737607, 0.5601397118630114}}, 
               0.034398474185441424`]}, 
             InsetBox["\<\"p4\"\>", {3.2222869882834804, 0.842452149102374}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{0.6566068268938635, 1.5454976712867052`}, {
               0.6560623472828103, 0.7046654164189672}}, 
               0.034398474185441424`]}, 
             InsetBox["\<\"-l1\"\>", {0.6563345870883369, 1.1250815438528363},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6560623472828103, 0.7046654164189672}, {
               1.5794211201162172`, 1.1249211491222355`}}, 
               0.034398474185441424`]}, 
             InsetBox["\<\"-l1+p1\"\>", {1.1177417336995137, 0.9147932827706013},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0., 0.}, {0.6560623472828103, 0.7046654164189672}}, 
               0.034398474185441424`]}, 
             InsetBox["\<\"p1\"\>", {0.32803117364140516, 0.3523327082094836},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.0008705571148572844, 2.249872063849202}, {
               0.6566068268938635, 1.5454976712867052`}}, 
               0.034398474185441424`]}, 
             InsetBox["\<\"p2\"\>", {0.3287386920043604, 1.8976848675679534}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.5794211201162172`, 1.1249211491222355`}, 
             0.034398474185441424], 
            DiskBox[{2.843764269190891, 1.1247645863417366`}, 
             0.034398474185441424], 
            DiskBox[{0.6566068268938635, 1.5454976712867052`}, 
             0.034398474185441424], 
            DiskBox[{0.6560623472828103, 0.7046654164189672}, 
             0.034398474185441424], DiskBox[{0., 0.}, 0.034398474185441424], 
            DiskBox[{0.0008705571148572844, 2.249872063849202}, 
             0.034398474185441424], 
            DiskBox[{3.6006751506253636`, 1.6894082303957352`}, 
             0.034398474185441424], 
            DiskBox[{3.60080970737607, 0.5601397118630114}, 
             0.034398474185441424]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "37"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{1, 2, 3, 
          4, -1, -3, -2, -4}, {{{1, 2}, {3, 1}, {4, 2}, {4, 3}, {5, 1}, {6, 
           2}, {3, 7}, {4, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[1, 2, 1] -> "l1", DirectedEdge[-3, 2, 1] -> "p2", 
             DirectedEdge[3, -2, 1] -> "p3", DirectedEdge[3, 1, 1] -> "l1-p1",
              DirectedEdge[4, 3, 1] -> "l1-p1+p3", DirectedEdge[-1, 1, 1] -> 
             "p1", DirectedEdge[4, -4, 1] -> "p4", DirectedEdge[4, 2, 1] -> 
             "-l1-p2"}, EdgeStyle -> {DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[4, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.8400224952906652, 1.4378842467555972`}, {
               1.8609225363282222`, 0.780302076820127}}, 
               0.02928939375755453]}, 
             InsetBox["\<\"l1\"\>", {1.3504725158094437, 1.109093161787862}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.0589656844029307`, 0.8073624769793297}, {
               0.8400224952906652, 1.4378842467555972`}}, 
               0.02928939375755453]}, 
             InsetBox["\<\"l1-p1\"\>", {0.949494089846798, 1.1226233618674635},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.0589656844029307`, 0.8073624769793297}, {
               0.36300957291344704`, 0.05389082828012448}}, 
               0.02928939375755453]}, 
             InsetBox["\<\"p3\"\>", {0.7109876286581889, 0.4306266526297271}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{2.064816157548565, 1.448669904132348}, {
               1.8609225363282222`, 0.780302076820127}}, 
               0.02928939375755453]}, 
             InsetBox["\<\"-l1-p2\"\>", {1.9628693469383935, 1.1144859904762376},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.064816157548565, 1.448669904132348}, {
               1.0589656844029307`, 0.8073624769793297}}, 
               0.02928939375755453]}, 
             InsetBox["\<\"l1-p1+p3\"\>", {1.5618909209757477, 1.1280161905558388},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.064816157548565, 1.448669904132348}, {
               2.8685523605359897`, 2.0711499470103454`}}, 
               0.02928939375755453]}, 
             InsetBox["\<\"p4\"\>", {2.4666842590422773, 1.7599099255713466}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0., 2.0167969022013894`}, {0.8400224952906652, 
               1.4378842467555972`}}, 0.02928939375755453]}, 
             InsetBox["\<\"p1\"\>", {0.4200112476453326, 1.7273405744784933}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.5192231616933722`, 0.}, {1.8609225363282222`, 
               0.780302076820127}}, 0.02928939375755453]}, 
             InsetBox["\<\"p2\"\>", {2.1900728490107975, 0.3901510384100635}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{0.8400224952906652, 1.4378842467555972`}, 
             0.02928939375755453], 
            DiskBox[{1.8609225363282222`, 0.780302076820127}, 
             0.02928939375755453], 
            DiskBox[{1.0589656844029307`, 0.8073624769793297}, 
             0.02928939375755453], 
            DiskBox[{2.064816157548565, 1.448669904132348}, 
             0.02928939375755453], 
            DiskBox[{0., 2.0167969022013894`}, 0.02928939375755453], 
            DiskBox[{2.5192231616933722`, 0.}, 0.02928939375755453], 
            DiskBox[{0.36300957291344704`, 0.05389082828012448}, 
             0.02928939375755453], 
            DiskBox[{2.8685523605359897`, 2.0711499470103454`}, 
             0.02928939375755453]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "38"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{2, 1, 3, 
          4, -1, -3, -2, -4}, {{{1, 2}, {2, 3}, {4, 1}, {4, 3}, {5, 2}, {6, 
           1}, {3, 7}, {4, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[-3, 2, 1] -> "p2", DirectedEdge[1, 3, 1] -> "-l1+p1",
              DirectedEdge[3, -2, 1] -> "p3", DirectedEdge[4, 3, 1] -> 
             "l1-p1+p3", DirectedEdge[-1, 1, 1] -> "p1", 
             DirectedEdge[2, 1, 1] -> "-l1", DirectedEdge[4, -4, 1] -> "p4", 
             DirectedEdge[4, 2, 1] -> "-l1-p2"}, 
           EdgeStyle -> {DirectedEdge[2, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[4, 3, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[1, 3, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[4, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[4, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7296764536963152`, 1.391082057569404}, {
               0.7330042585648898, 0.7086301935538286}}, 
               0.02627172991055854]}, 
             InsetBox["\<\"-l1\"\>", {1.2313403561306024, 1.0498561255616163},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.7330042585648898, 0.7086301935538286}, {
               0.7331638071454274, 1.389875062580961}}, 0.02627172991055854]},
              InsetBox["\<\"-l1+p1\"\>", {0.7330840328551587, 1.0492526280673948},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.7331638071454274, 1.389875062580961}, {0., 
               2.0965673285100754`}}, 0.02627172991055854]}, 
             InsetBox["\<\"p3\"\>", {0.3665819035727137, 1.7432211955455181}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7312478631993615`, 0.708261450504374}, {
               1.7296764536963152`, 1.391082057569404}}, 
               0.02627172991055854]}, 
             InsetBox["\<\"-l1-p2\"\>", {1.7304621584478384, 1.049671754036889},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7312478631993615`, 0.708261450504374}, {
               0.7331638071454274, 1.389875062580961}}, 0.02627172991055854]},
              InsetBox["\<\"l1-p1+p3\"\>", {1.2322058351723943, 1.0490682565426674},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{1.7312478631993615`, 0.708261450504374}, {
               2.4644545628434598`, 0.0008177162045386321}}, 
               0.02627172991055854]}, 
             InsetBox["\<\"p4\"\>", {2.0978512130214106, 0.3545395833544563}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.0008360082476637221, 0.}, {0.7330042585648898, 
               0.7086301935538286}}, 0.02627172991055854]}, 
             InsetBox["\<\"p1\"\>", {0.36692013340627677, 0.3543150967769143},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{2.4607012141624622`, 2.0997130722773267`}, {
               1.7296764536963152`, 1.391082057569404}}, 
               0.02627172991055854]}, 
             InsetBox["\<\"p2\"\>", {2.095188833929389, 1.7453975649233655}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.7296764536963152`, 1.391082057569404}, 
             0.02627172991055854], 
            DiskBox[{0.7330042585648898, 0.7086301935538286}, 
             0.02627172991055854], 
            DiskBox[{0.7331638071454274, 1.389875062580961}, 
             0.02627172991055854], 
            DiskBox[{1.7312478631993615`, 0.708261450504374}, 
             0.02627172991055854], 
            DiskBox[{0.0008360082476637221, 0.}, 0.02627172991055854], 
            DiskBox[{2.4607012141624622`, 2.0997130722773267`}, 
             0.02627172991055854], 
            DiskBox[{0., 2.0965673285100754`}, 0.02627172991055854], 
            DiskBox[{2.4644545628434598`, 0.0008177162045386321}, 
             0.02627172991055854]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "39"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{1, 2, 3, 
          4, -1, -3, -2, -4}, {{{1, 2}, {3, 1}, {4, 2}, {3, 4}, {5, 1}, {6, 
           2}, {4, 7}, {3, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 4, 1] -> "-l1+p1-p4", DirectedEdge[1, 2, 1] -> 
             "l1", DirectedEdge[-3, 2, 1] -> "p2", DirectedEdge[3, 1, 1] -> 
             "l1-p1", DirectedEdge[4, -2, 1] -> "p3", DirectedEdge[-1, 1, 1] -> 
             "p1", DirectedEdge[3, -4, 1] -> "p4", DirectedEdge[4, 2, 1] -> 
             "-l1-p2"}, EdgeStyle -> {DirectedEdge[1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[4, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.7340260006185896, 0.7066299173937721}, {
               0.7061441625135445, 1.7317506695463099`}}, 
               0.02628310079109937]}, 
             InsetBox["\<\"l1\"\>", {0.7200850815660671, 1.219190293470041}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7590699939827752`, 0.7335763212706757}, {
               0.7340260006185896, 0.7066299173937721}}, 
               0.02628310079109937]}, 
             InsetBox["\<\"l1-p1\"\>", {1.2465479973006823, 0.7201031193322239},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7590699939827752`, 0.7335763212706757}, {
               1.7311034839040333`, 1.7583018450999903`}}, 
               0.02628310079109937]}, 
             InsetBox["\<\"-l1+p1-p4\"\>", {1.7450867389434044, 1.245939083185333},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{1.7590699939827752`, 0.7335763212706757}, {
               2.46594024574545, 0.06344634535332072}}, 0.02628310079109937]},
              InsetBox["\<\"p4\"\>", {2.1125051198641125, 0.39851133331199823},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7311034839040333`, 1.7583018450999903`}, {
               0.7061441625135445, 1.7317506695463099`}}, 
               0.02628310079109937]}, 
             InsetBox["\<\"-l1-p2\"\>", {1.218623823208789, 1.74502625732315},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7311034839040333`, 1.7583018450999903`}, {
               2.4020811316954966`, 2.4642104181390856`}}, 
               0.02628310079109937]}, 
             InsetBox["\<\"p3\"\>", {2.066592307799765, 2.111256131619538}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.06405095385719584, 0.}, {0.7340260006185896, 
               0.7066299173937721}}, 0.02628310079109937]}, 
             InsetBox["\<\"p1\"\>", {0.3990384772378927, 0.35331495869688606},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0., 2.4031134722303182`}, {0.7061441625135445, 
               1.7317506695463099`}}, 0.02628310079109937]}, 
             InsetBox["\<\"p2\"\>", {0.35307208125677225, 2.067432070888314}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{0.7340260006185896, 0.7066299173937721}, 
             0.02628310079109937], 
            DiskBox[{0.7061441625135445, 1.7317506695463099`}, 
             0.02628310079109937], 
            DiskBox[{1.7590699939827752`, 0.7335763212706757}, 
             0.02628310079109937], 
            DiskBox[{1.7311034839040333`, 1.7583018450999903`}, 
             0.02628310079109937], 
            DiskBox[{0.06405095385719584, 0.}, 0.02628310079109937], 
            DiskBox[{0., 2.4031134722303182`}, 0.02628310079109937], 
            DiskBox[{2.4020811316954966`, 2.4642104181390856`}, 
             0.02628310079109937], 
            DiskBox[{2.46594024574545, 0.06344634535332072}, 
             0.02628310079109937]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "40"], ",", 
    UnderscriptBox[
     GraphicsBox[
      NamespaceBox["NetworkGraphics",
       DynamicModuleBox[{Typeset`graph = HoldComplete[
         Graph[{1, 2, 3, 
          4, -1, -3, -2, -4}, {{{1, 2}, {3, 1}, {4, 2}, {3, 4}, {5, 1}, {6, 
           4}, {2, 7}, {3, 8}}, Null, {1, 1, 1, 1, 1, 1, 1, 1}}, {
          EdgeLabels -> {
            DirectedEdge[3, 4, 1] -> "-l1+p1-p4", DirectedEdge[1, 2, 1] -> 
             "l1", DirectedEdge[3, 1, 1] -> "l1-p1", DirectedEdge[-1, 1, 1] -> 
             "p1", DirectedEdge[-3, 4, 1] -> "p2", DirectedEdge[2, -2, 1] -> 
             "p3", DirectedEdge[3, -4, 1] -> "p4", DirectedEdge[4, 2, 1] -> 
             "-l1+p3"}, EdgeStyle -> {DirectedEdge[1, 2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[3, 1, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[-3, 4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[4, 2, 1] -> {
               RGBColor[1, 0, 0], 
               AbsoluteThickness[0.4]}, DirectedEdge[3, -4, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`], 
               Arrowheads[{{Small, 0.3, 
                  Graphics[
                   Line[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}]]}, {Medium, 1}}]}, 
             DirectedEdge[2, -2, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}, DirectedEdge[-1, 1, 1] -> {
               RGBColor[
               0.30980392156862746`, 0.47058823529411764`, 
                0.34509803921568627`]}}, GraphLayout -> 
           "SpringElectricalEmbedding"}]]}, 
        TagBox[GraphicsGroupBox[{
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.722343760883767, 0.6977159966230881}, {
               0.6968781090662766, 0.7112498882370643}}, 
               0.026046067137403553`]}, 
             InsetBox["\<\"l1\"\>", {1.209610934975022, 0.7044829424300763}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{0.6968781090662766, 0.7112498882370643}, {0., 
               0.03073479686477132}}, 0.026046067137403553`]}, 
             InsetBox["\<\"p3\"\>", {0.3484390545331383, 0.3709923425509178}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{1.7363723023234305`, 1.7231122970510375`}, {
               1.722343760883767, 0.6977159966230881}}, 
               0.026046067137403553`]}, 
             InsetBox["\<\"l1-p1\"\>", {1.7293580316035988, 1.2104141468370628},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{1.7363723023234305`, 1.7231122970510375`}, {
               0.711477416866957, 1.7366712481351034`}}, 
               0.026046067137403553`]}, 
             InsetBox["\<\"-l1+p1-p4\"\>", {1.2239248595951937, 1.7298917725930705},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{1.7363723023234305`, 1.7231122970510375`}, {
               2.435026568434985, 2.402222130991343}}, 
               0.026046067137403553`]}, 
             InsetBox["\<\"p4\"\>", {2.0856994353792078, 2.0626672140211904}, 
              ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[1, 0, 0], AbsoluteThickness[0.4], 
              ArrowBox[{{0.711477416866957, 1.7366712481351034`}, {
               0.6968781090662766, 0.7112498882370643}}, 
               0.026046067137403553`]}, 
             InsetBox["\<\"-l1+p3\"\>", {0.7041777629666168, 1.223960568186084},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], 
              ArrowBox[{{2.4014055589947114`, 0.}, {1.722343760883767, 
               0.6977159966230881}}, 0.026046067137403553`]}, 
             InsetBox["\<\"p1\"\>", {2.0618746599392392, 0.34885799831154407},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}, {
             {RGBColor[
              0.30980392156862746`, 0.47058823529411764`, 
               0.34509803921568627`], Arrowheads[{{Small, 0.3, 
                 GraphicsBox[
                  LineBox[
                   NCache[{{{0, 
                    Rational[1, 3]}, {-1, 0}, {0, 
                    Rational[-1, 3]}}}, {{{0, 0.3333333333333333}, {-1, 0}, {
                    0, -0.3333333333333333}}}]]]}, {Medium, 1}}], 
              ArrowBox[{{0.03159403647119796, 2.4338694940981895`}, {
               0.711477416866957, 1.7366712481351034`}}, 
               0.026046067137403553`]}, 
             InsetBox["\<\"p2\"\>", {0.37153572666907747, 2.0852703711166463},
               ImageScaled[{0.5, 0.5}],
              BaseStyle->"Graphics"]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[{1.722343760883767, 0.6977159966230881}, 
             0.026046067137403553], 
            DiskBox[{0.6968781090662766, 0.7112498882370643}, 
             0.026046067137403553], 
            DiskBox[{1.7363723023234305`, 1.7231122970510375`}, 
             0.026046067137403553], 
            DiskBox[{0.711477416866957, 1.7366712481351034`}, 
             0.026046067137403553], 
            DiskBox[{2.4014055589947114`, 0.}, 0.026046067137403553], 
            DiskBox[{0.03159403647119796, 2.4338694940981895`}, 
             0.026046067137403553], 
            DiskBox[{0., 0.03073479686477132}, 0.026046067137403553], 
            DiskBox[{2.435026568434985, 2.402222130991343}, 
             0.026046067137403553]}}],
         MouseAppearanceTag["NetworkGraphics"]],
        AllowKernelInitialization->False]],
      DefaultBaseStyle->"NetworkGraphics",
      FormatType->TraditionalForm,
      FrameTicks->None], "41"]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.915695102848728*^9, 3.915695222886327*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"34ce3d03-eaec-4b9d-a067-1ca912322879"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ConstructAmp", "[", "grafs", "]"}]], "Input",
 CellChangeTimes->{{3.915695243199782*^9, 3.915695254898403*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"e4895d18-8ab2-4187-a4db-b033092fc113"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{"l1", "-", "p1", "-", "p2"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"l1", "-", "p1", "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "+", "p2"}], ",", "l1"}], "}"}]}], 
      ")"}]}], ",", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{"l1", "-", "p1", "-", "p2"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "+", "p2"}], ",", "l1"}], "}"}]}], 
      ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p3"}], ",", "l1"}], "}"}]}], 
      ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"l1", "-", "p1", "+", "p3"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p3"}], ",", "l1"}], "}"}]}], 
      ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"l1", "-", "p1", "+", "p3"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "+", "p1", "-", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "1", ",", 
         RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p4"}], ",", 
         RowBox[{"-", "p3"}], ",", "l1"}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"-", "1"}], ",", "4", ",", 
         RowBox[{"-", "4"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1", "+", "p4"}], ",", "p1", ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"-", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{
         RowBox[{"-", "p1"}], "-", "p2"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "+", "p1", "+", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "p1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1", "-", "p2"}], ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"p1", "+", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "6", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", "l1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "+", "p2"}]}], "}"}]}], ")"}]}], 
    ",", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "p1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p1", "+", "p2"}], ",", 
         RowBox[{"l1", "-", "p1", "-", "p2"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "p1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "+", "p2"}], ",", "l1"}], "}"}]}], 
      ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"p3", "-", "p1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "+", "p1", "-", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"p3", "-", "p1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1", "+", "p3"}], ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"p1", "-", "p3"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "6", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", "l1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p3"}]}], "}"}]}], ")"}]}], 
    ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"p3", "-", "p1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p1", "-", "p3"}], ",", 
         RowBox[{"l1", "-", "p1", "+", "p3"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"p3", "-", "p1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p3"}], ",", "l1"}], "}"}]}], 
      ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"p4", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "+", "p2", "-", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p2", "+", "p4"}], ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"p2", "-", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "6", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", "l1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p2", "-", "p4"}]}], "}"}]}], ")"}]}], 
    ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"p4", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "-", "p2", "+", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p2", "-", "p4"}], ",", 
         RowBox[{"l1", "-", "p2", "+", "p4"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p2", "-", "p4"}], ",", "l1"}], "}"}]}], 
      ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{"p3", "+", "p4"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "-", "p3", "-", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p3", "+", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "+", "p3", "+", "p4"}], ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{
          RowBox[{"-", "p3"}], "-", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "6", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", "l1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p3", "-", "p4"}]}], "}"}]}], ")"}]}], 
    ",", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"p3", "+", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "+", "p3", "+", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "p3"}], "-", "p4"}], ",", 
         RowBox[{"l1", "+", "p3", "+", "p4"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p3", "+", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p3", "-", "p4"}], ",", "l1"}], "}"}]}], 
      ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"p1", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p2"}], ",", "l1"}], "}"}]}], ")"}], " ", 
     
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1"}], ",", "p1", ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "6", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"l1", "+", "p2"}], ",", 
         RowBox[{"p1", "-", "l1"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "l1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", "p1", ",", 
         RowBox[{"l1", "-", "p1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p1", "-", "l1"}], ",", 
         RowBox[{"l1", "+", "p2"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{"-", "l1"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"p1", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"p3", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"p3", "-", "l1"}], ",", "l1"}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1"}], ",", "p1", ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "6", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"l1", "-", "p3"}], ",", 
         RowBox[{"p1", "-", "l1"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "4"}], "}"}], ",", 
        RowBox[{"l1", "-", "p1"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"p3", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "l1", ",", 
         RowBox[{"p3", "-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", "p1", ",", 
         RowBox[{"l1", "-", "p1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p1", "-", "l1"}], ",", 
         RowBox[{"l1", "-", "p3"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"p1", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p4"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1"}], ",", "p1", ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", 
         RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p4", "-", "l1"}], ",", 
         RowBox[{"-", "p4"}], ",", "l1"}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "3", ",", 
         RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"p1", "-", "l1"}], ",", 
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"l1", "-", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"p3", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"l1", "-", "p2"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"p3", "-", "l1"}], ",", "l1"}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{"-", "1"}], ",", "6", ",", 
         RowBox[{"-", "4"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p2", "-", "l1"}], ",", "p1", ",", 
         RowBox[{"l1", "-", "p3"}], ",", 
         RowBox[{"-", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{"-", "l1"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p4"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"l1", "-", "p2"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", 
         RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p4", "-", "l1"}], ",", 
         RowBox[{"-", "p4"}], ",", "l1"}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "4", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"p2", "-", "l1"}], ",", 
         RowBox[{"l1", "-", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "4"}], "}"}], ",", 
        RowBox[{"l1", "-", "p2"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"p4", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"l1", "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"-", "4"}], ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"l1", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"p2", "-", "l1"}], ",", 
         RowBox[{"l1", "-", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p4"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"l1", "+", "p3"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", 
         RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p4", "-", "l1"}], ",", 
         RowBox[{"-", "p4"}], ",", "l1"}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"ubar\"\>", 
         ",", "\<\"u\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "4", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p3"}], ",", 
         RowBox[{"l1", "-", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"p4", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"l1", "+", "p3"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"-", "4"}], ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"l1", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>", 
         ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p3"}], ",", 
         RowBox[{"l1", "-", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{
         RowBox[{"-", "p1"}], "-", "p2"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"p3", "+", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "p1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p3", "+", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "7", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "+", "p2"}], ",", "l1", ",", 
         RowBox[{
          RowBox[{"-", "p3"}], "-", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"l1", "-", "p1", "-", "p2"}], ",", 
         RowBox[{"p1", "+", "p2"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "p1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"p3", "+", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "5", ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p1", "+", "p2"}], ",", 
         RowBox[{"l1", "-", "p1", "-", "p2"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6", ",", "8"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "p3"}], "-", "p4"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "+", "p2"}], ",", "l1"}], "}"}]}], 
      ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "p1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p3", "+", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{
         RowBox[{"-", "p1"}], "-", "p2"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"p3", "+", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"gh\"\>", ",", "\<\"ghbar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"gh\"\>", ",", "\<\"ghbar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ghbar\"\>", ",", "\<\"gh\"\>", ",", "\<\"g\"\>"}], "}"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "7", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "+", "p2"}], ",", "l1", ",", 
         RowBox[{
          RowBox[{"-", "p3"}], "-", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ghbar\"\>", ",", "\<\"gh\"\>", ",", "\<\"g\"\>"}], "}"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"l1", "-", "p1", "-", "p2"}], ",", 
         RowBox[{"p1", "+", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "p1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p3", "+", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"p3", "-", "p1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"p4", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"p3", "-", "p1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "7", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p3"}], ",", "l1", ",", 
         RowBox[{"p2", "-", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"l1", "-", "p1", "+", "p3"}], ",", 
         RowBox[{"p1", "-", "p3"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"p3", "-", "p1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"p4", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "5", ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p1", "-", "p3"}], ",", 
         RowBox[{"l1", "-", "p1", "+", "p3"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6", ",", "8"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p2", "-", "p4"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p3"}], ",", "l1"}], "}"}]}], 
      ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"p3", "-", "p1"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"p3", "-", "p1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"p4", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"gh\"\>", ",", "\<\"ghbar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"gh\"\>", ",", "\<\"ghbar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ghbar\"\>", ",", "\<\"gh\"\>", ",", "\<\"g\"\>"}], "}"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "7", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p3"}], ",", "l1", ",", 
         RowBox[{"p2", "-", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ghbar\"\>", ",", "\<\"gh\"\>", ",", "\<\"g\"\>"}], "}"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"l1", "-", "p1", "+", "p3"}], ",", 
         RowBox[{"p1", "-", "p3"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"p3", "-", "p1"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "p1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{"p4", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p1", "+", "p2"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p3"}], ",", 
         RowBox[{"l1", "-", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "p1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "3", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"l1", "+", "p3"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{"-", "4"}], ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"l1", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "l1"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "p1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{"l1", "-", "p4"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "p1", ",", 
         RowBox[{
          RowBox[{"-", "p1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "5", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"l1", "+", "p3"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "7", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p3"}], ",", 
         RowBox[{"l1", "-", "p4"}], ",", 
         RowBox[{"p1", "+", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p4", "-", "l1"}], ",", 
         RowBox[{"-", "p4"}], ",", "l1"}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{"p3", "-", "p1"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{"p4", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p1", "-", "p3"}], ",", 
         RowBox[{"p2", "-", "l1"}], ",", 
         RowBox[{"l1", "-", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "3", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "l1"}], ",", 
         RowBox[{"l1", "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"p3", "-", "p1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{"-", "4"}], ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"l1", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "l1"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{"p3", "-", "p1"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{"l1", "-", "p4"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "5", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"l1", "-", "p2"}], ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "p1", ",", 
         RowBox[{"p3", "-", "p1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "7", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p2", "-", "l1"}], ",", 
         RowBox[{"l1", "-", "p4"}], ",", 
         RowBox[{"p1", "-", "p3"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p4", "-", "l1"}], ",", 
         RowBox[{"-", "p4"}], ",", "l1"}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{"p4", "-", "p2"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{"p3", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p2", "-", "p4"}], ",", 
         RowBox[{"p1", "-", "l1"}], ",", 
         RowBox[{"l1", "-", "p3"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "3", ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "l1", ",", 
         RowBox[{"p3", "-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", "p1", ",", 
         RowBox[{"l1", "-", "p1"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{"p4", "-", "p2"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"p1", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{"p3", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p4", "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "7", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"p3", "-", "l1"}], ",", "l1"}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", 
         RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1"}], ",", "p1", ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p3"}], ",", 
         RowBox[{"p1", "-", "l1"}], ",", 
         RowBox[{"p2", "-", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"p3", "+", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "p3"}], "-", "p4"}], ",", 
         RowBox[{"p1", "-", "l1"}], ",", 
         RowBox[{"l1", "+", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "3", ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "l1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p3", "+", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", "p1", ",", 
         RowBox[{"l1", "-", "p1"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"p3", "+", "p4"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"p1", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "7", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p2"}], ",", "l1"}], "}"}]}], ")"}], " ", 
     
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p3", "+", "p4"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", 
         RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1"}], ",", "p1", ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "+", "p2"}], ",", 
         RowBox[{"p1", "-", "l1"}], ",", 
         RowBox[{
          RowBox[{"-", "p3"}], "-", "p4"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "l1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "7", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"l1", "-", "p1", "+", "p3"}], ",", 
         RowBox[{"p1", "-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", "p1", ",", 
         RowBox[{"l1", "-", "p1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", 
         RowBox[{"-", "4"}], ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p3"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"l1", "+", "p2"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{"-", "l1"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1", "+", "p3"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"p1", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p2"}], ",", "l1"}], "}"}]}], ")"}], " ", 
     
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "3", ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{"p1", "-", "l1"}], ",", 
         RowBox[{"l1", "-", "p1", "+", "p3"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1"}], ",", "p1", ",", 
         RowBox[{"-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", 
         RowBox[{"-", "4"}], ",", "8"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "+", "p2"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p3"}]}], "}"}]}], ")"}]}], 
    ",", 
    RowBox[{
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"l1", "-", "p1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "-", "p2"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "+", "p1", "-", "p4"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "l1", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "-", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "7", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p4"}], ",", 
         RowBox[{"l1", "+", "p2"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", "p1", ",", 
         RowBox[{"l1", "-", "p1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1", "+", "p4"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p1", "-", "l1"}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Propagator", "(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "4"}], "}"}], ",", 
        RowBox[{"l1", "-", "p1"}]}], ")"}]}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}], ",", 
       RowBox[{"p3", "-", "l1"}]}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", "l1"}], ")"}], " ", 
     RowBox[{"Propagator", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"u\"\>", ",", "\<\"ubar\"\>"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "8"}], "}"}], ",", 
       RowBox[{
        RowBox[{"-", "l1"}], "+", "p1", "-", "p4"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "7", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", 
         RowBox[{
          RowBox[{"-", "l1"}], "+", "p1", "-", "p4"}], ",", 
         RowBox[{"l1", "-", "p3"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "p3"}], ",", "l1", ",", 
         RowBox[{"p3", "-", "l1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "l1"}], ",", "p1", ",", 
         RowBox[{"l1", "-", "p1"}]}], "}"}]}], ")"}], " ", 
     RowBox[{"Vertex", "(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"ubar\"\>", ",", "\<\"u\"\>", ",", "\<\"g\"\>"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l1", "-", "p1", "+", "p4"}], ",", 
         RowBox[{"-", "p4"}], ",", 
         RowBox[{"p1", "-", "l1"}]}], "}"}]}], ")"}]}]}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.915695241201537*^9, 3.915695257473925*^9}},
 CellLabel->"Out[13]=",ExpressionUUID->"67fe29d5-15b0-41fa-bf37-5603426f9eb4"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1512, 916},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.3 for Mac OS X ARM (64-bit) (July 24, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"d8ef3896-881c-4c46-83da-6420260213a9"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 174, 2, 37, "Input",ExpressionUUID->"1e449c69-1cdb-4643-8054-f6e13435a261"],
Cell[CellGroupData[{
Cell[757, 26, 158, 3, 86, "Chapter",ExpressionUUID->"39c6eac2-cac2-4b5f-a5ef-2c0f49a3f066"],
Cell[CellGroupData[{
Cell[940, 33, 275, 5, 57, "Input",ExpressionUUID->"1605f135-6d65-4331-9908-77c3b3755f6d",
 InitializationCell->True],
Cell[1218, 40, 249, 4, 38, "Output",ExpressionUUID->"a7c2564f-2210-459f-afc6-51cf7a024d95"]
}, Open  ]],
Cell[1482, 47, 278, 5, 57, "Input",ExpressionUUID->"41b7cc67-d768-4b31-b97d-370b309e53e1",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[1785, 56, 208, 3, 37, "Input",ExpressionUUID->"755008b2-d37c-4861-b837-e0a2857b4f2d"],
Cell[1996, 61, 10465, 253, 235, "Output",ExpressionUUID->"9b1fca30-e188-4cf8-abed-87d7de2c5ddf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12498, 319, 709, 21, 37, "Input",ExpressionUUID->"1d3ba7d2-16a6-40f6-a19b-b708021edf5d",
 CellID->874236904],
Cell[13210, 342, 490, 9, 106, "Output",ExpressionUUID->"b45b4a1e-c103-4013-8cc9-80f7374e23c5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13737, 356, 5339, 131, 296, "Input",ExpressionUUID->"2b6b4428-d781-4c59-b3cf-b82d2940babe",
 InitializationCell->True],
Cell[19079, 489, 5288, 129, 103, "Output",ExpressionUUID->"300e1ebb-ae3a-4ce6-8b01-24061c46fc6b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24416, 624, 150, 3, 86, "Chapter",ExpressionUUID->"3e2008da-0768-4b11-91c5-855f6241039d"],
Cell[CellGroupData[{
Cell[24591, 631, 1368, 34, 220, "Input",ExpressionUUID->"b53112b9-ee45-432c-b905-f1c70a927b41"],
Cell[25962, 667, 287806, 5719, 1929, "Output",ExpressionUUID->"34ce3d03-eaec-4b9d-a067-1ca912322879"]
}, Open  ]],
Cell[CellGroupData[{
Cell[313805, 6391, 214, 3, 37, "Input",ExpressionUUID->"e4895d18-8ab2-4187-a4db-b033092fc113"],
Cell[314022, 6396, 95422, 2789, 1830, "Output",ExpressionUUID->"67fe29d5-15b0-41fa-bf37-5603426f9eb4"]
}, Open  ]]
}, Open  ]]
}
]
*)

